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COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL . 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
CWITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 
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TEST 1 SERIAL LINE UNIT TEST 
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END OF TEST SEQUENCE 
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CZLCP DIAGNOSTIC PROGRAM USER’S DOCUMENT 
ABSTRACT 


1.0 ABSTRACT 


THIS IS A PDP-11 DIAGNOSTIC WHICH IS DES 
AN LPCO1 PRINTER WHILE ATTACHED TO A PDP 


COMPLETION AND ERROR INDICATIONS. 
CZLCP IS AN XXDP+ DIAGNOSTIC. 


1.1 MAINTENANCE HISTORY 


CZLCP IS A NEW PDP-11 DIAGNOSTIC. 


AUTHOR : DIGITAL EQUIPMENT CORPORATION 


COMPUTER SPECIAL SYSTEMS 
HUDSON, NEW HAMPSHIRE 


PREPARED BY: 

DICE SYSTEMS, INC. 

7 1/2 HARRIS ROAD 

NASHUA, NEW HAMPSHIRE 
EDIT HISTORY: 


NEW VERSION 


SEQ 0004 


IGNED TO FUNCTIONALLY EXERCISE 
-11 PROCESSOR. 


THE DIAGNOSTIC CAUSES THE MICROCODE TO EXECUTE SPECIFIC TESTS. 
DIAGNOSTIC THEN MONITORS THE LCPO1 SERIAL LINE OUTPUT, TRACING T 
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CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 
REQUIREMENTS 


2.0 REQUIREMENTS 


2.1 EQUIPMENT 


THIS DIAGNOSTIC WILL RUN ON ALL PDP-11 FAMILY COMPUTERS WHICH HAVE 
EITHER A DL11 OR A DZ11 SERIAL LINE AND AN LCPO1 PRINTER. 


2.2 STORAGE 


—- REQUIRES A PDP-11 SYSTEM WITH AT LEAST 28K WORDS OF 


2.3 SOFTWARE 


be a sae REQUIRES XXDP+ OPERATING SYSTEM SOFTWARE, VERSION 1.2 OR 
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138 
| 439 CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 
| 440 TEST OVERVIEW 
141 
142 
143 3.0 TEST OVERVIEW 
144 
145 
146 3.1 SECTION DESCRIPTIONS 
147 
148 
149 THIS DIAGNOSTIC CONSISTS OF ONE SECTION, CONTAINING THREE TESTS, as 
150 FOLLOWS: 
1 
152 1. SERIAL LINE TEST 
154 2. COLOR PRINTER SELF TEST 
156 3. PRINTER DISPLAY TEST 
157 
158 
159 3.2 SERIAL LINE OPERATIONS 
161 THE PROGRAM HAS BEEN DESIGNED TO ALLOW THE DIAGNOSTIC TO TEST THE LCPO1 
162 PRINTERS WHILE ATTACHED BY SERIAL LINE INTERFACES. 
164 THE FOLLOWING DIALOGUE ALLOWS FOR SERIAL LINE SELECTION: 
166 R CZLCP?? 
167 CZLCP.BIN 
168 
169 LCPO1 LINE PRINTER DIAGNOSTIC 
171 SERIAL LINE SELECTION MENU 
172 i DLi1 SERIAL LINE 
173 2 DZi1 SERIAL LINE 
174 TYPE MENU SELECTION <1>? 
175 | 
176 THE APPROPRIATE NUMBER CONE OR TWO) SHOULD BE ENTERED BY THE OPERATOR. 
177 TYPING A CARRIAGE RETURN WILL RESULT IN SELECTION OF THE DEFAULT SeOyAL 
178 LINE, WHICH IS THE DL11. 
179 7 
180 
181 . 3.2.1 DL2i SUPPORT - 
182 
183 THE PROGRAM WILL SUPPORT DL11 OF THE FOLLOWING TYPE: 
185 1. ALL UNIBUS DL11S 
187 2. OLV11 
188 
189 3. OLV11-F 
i 
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191 
192 CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT PAGE 6 

193 TEST OVERVIEW 

195 

1 

196 THE PROGRAM WILL PROMPT FOR INDIVIDUAL SETUP PARAMETERS AS THEY ARE 

io REQUIRED BY EACH INTERFACE. 

199 

peg 3.2.2 DZ11 SUPPORT - 

202 THE PROGRAM WILL SUPPORT BOTH DZ11 AND THE DZVil. THE PROGRAM WILL 

203 PROMPT THE OPERATOR FOR THE REQUIRED SETUP PARAMETERS, THESE INCLUDE 

pm THE FOLLOWING: 

pa 1. CSR ADDRESS 

pee 2. THE DZ LINE NUMBER BEING USED (0-7). 

rey 3. THE DZ'S BAUD RATE 

Pe] 4. THE NUMBER OF STOP BITS 

ote 5. NUMBER OF DATA BITS 

te 6. WHETHER OR NOT PARITY IS BEING USED 

rte 7. IF PARITY IS USED, IS IT ODD OR EVEN 

220 

221 

222 4.0 ASSUMPTIONS 

254 

225 THE ONBOARD MICROCODE DIAGNOSTICS HAVE COMPLETE RESPONSIBILITY FOR 

226 DEVICE TEST COVERAGE. THE DIAGNOSTIC ONLY VERIFIES THE INTERFACE AND 

227 REPORTS ERRORS DETECTED BY THE MICROCODE DIAGNOSTICS. 

228 3 

229 

230 3.0 OPERATING PROCEDURE 

231 

232 

233 

234 5.1 STARTING ADDRESS OR ADDRESSES 

536 

237 THE INITIAL STARTING ADDRESS TO RUN THE ENTIRE LCPO1 DIAGNOSTIC IS 

THE RESTART ADDRESS IS 300 (8). 


238 LOCATION 200(8). 
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240 
241 CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 
242 OPERATING PROCEDURE 
3 
or 3.2 OPERATIONAL SWITCH SETTINGS - HARDWARE AND SOF TWARE 
247 
2468 WHEN THE DIAGNOSTIC IS STARTED AT ADDRESS 200(8),IT WILL DETERMINE 
249 WETHER OR NOT THE PROCESSOR HAS A HARDWARE (H/W) SWITCH REGISTER (SwR) 
250 IF THERE IS A H/W SWR, THE DIAGNOSTIC WILL USE BOTH THE HAR 
251 REGISTER, AT LOCATION 177570, AND THE SOFTWARE (S/W) SWR LOCATED AT 
252 ADDRESS 176(8). IF A BIT IS SET IN EITHER REGISTER, EXECUTION WILL BE 
253 MODIFIED AS DESCRIBED IN THE ‘SWITCH REGISTER BIT DEFINITIONS’ SECTION 
254 OF THIS DOCUMENT. 
255 
256 
pd 5.2.1 CONTROL-G - 
259 THE OPERATOR MAY CHANGE THESE REGISTER VALUES BY ENTERING A CONTROL -G 
260 AT THE CONSOLE TERMINAL. THE DIAGNOSTIC WILL PROMPT THE OPERATOR WITH 
poe THE MESSAGE : 
263 H/W SWR = XXXXXX SWR = XXXXXX NEW SWR = 
264 
265 AFTER EXECUTION BEGINS, THE OPERATOR MAY CHANGE THE VALUE OF THE SWR, 
=. AT ANY TIME, BY ENTERING A CONTROL-G (G) AT THE CONSOLE . 
26 
268 IN RESPONSE TO THE PROMPTS, THE OPERATOR MAY ENTER UP_ TO SIX (6) OCTAL 
269 DIGITS. THE DIGITS MAY BE ANY COMBINATION OF :0,1,2,3.4,5,6,7,0R 
270 ENTRY AT ALL. ALL SWR VALUES ENTERED WILL BE TRUNCATED TO THE LOWER 
271 SIXTEEN (16) BITS. ENTERING MORE THAN SIX DIGITS OR A CHARACTER OTHER 
272 THAN A DIGIT RESULTS IN A “2?” OUTPUT ON THE CONSOLE AND A REPEAT OF THE 
273 PROMPTING ME . 
274 
275 CARRIAGE RETURN (CR): ENTERS THE NEW SWR VALUE. IF NO DIGITS HAVE 
276 BEEN ENTERED, THE SWR VALUE REMAINS UNCHANGED. 
277 : 
278 
279 3.2.2 CONTROL-U - 
280 
281 ERASES THE SWR VALUE BEING ENTERED. A CARRIAGE RETURN AND LINE FEED 
282 WILL BE OUTPUT AT THE CONSOLE. THE CORRECT SWR VALUE MAY THEN BE 
283 ENTERED. 
284 
285 
oar 3.2.3 CONTROL-H - 
2 
288 PRINTS THE HELP FILE ON THE CONSOLE TERMINAL, THE FOLLOWING INFORMATION 
pot IS DISPLAYED: 

0 
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CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 
OPERATING PROCEDURE 


HELP SWITCH REGISTER BIT DEFINITION 
CNOTE: <CTRL>G - ALLOWS CHANGE TO “SOFTWARE” SWITCH REG) 


a3. 14, i% * er 2 Ae 0 

I I I I I TI {I--LOOP ON SLU TEST 1 

+S Zoo . 2) Pies LOOP ON PRINTER “SELF” TEST 

ae ee Ee ee se LOOP ON PRINTER DISPLAY TEST 

.- 2 Io ee nnnsnwenne PAUSE ON ERROR, PAUSE AT END OF PASS 

ae ae re ee INHIBIT ERROR RE 

E Jonccesdewssnsincknanne INHIBIT TEST ERROR AND END OF PASS REPORTS 
To - 222s n ence eee een enne LOOP ON ERROR (OTHERWISE CONTINUE) 


ENTERING ANY CHARACTER BEFORE A CONTROL-G (G) HAS BEEN ENTERED WILL 


RESULT IN A "2?" QUTPUT AT THE CONSOLE. 
NOTE 


IT IS POSSIBLE FOR THE DIAGNOSTIC TO OUTPUT MESSAGES AT THE 
CONSOLE BEFORE THE NEW SWR VALUE HAS BEEN ENTERED. SHOULD THIS 


HAPPEN, THE OPERATOR SHOULD ENTER A CONTROL -U CU) AND 
ENTER THE CORRECT SWR VALUE. 


3.2.4 CONTROL-C - 


ENTRY OF A ‘CONTROL-C’ COMBINATION ABORTS TESTING AND RESTARTS IT AT 


LOCATION 200 (OCTAL). 


3.2.5 SWITCH REGISTER BIT DEFINITIONS - 
BITO =1: LOOP ON SLU TEST #1. 
BIT1 =1: LOOP ON PRINTER SELF TEST #2 
BIT2 =1: LOOP ON THE PRINTER DISPLAY TEST #3 


BIT12=1: HALT ON ERROR AND HALT ON END OF PASS, THE OPERATOR MAY CHOOSE TO 
CONTINUE OR PROCEED BY ENTERINNG THOSE COMMANDS. THE DEFAULT EXECUTION 
IS TO CONTINUE AFTER AN ERROR OR AN EOP INDICATION IS ENCOUTERED 


BIT13=1: INHIBIT ERROR REPORTING. 
BIT14=1:; TEST HEADER AND END OF PASS MESSAGES ARE NOT DISPLAYED. 


SEQ 0009 


BIT15=1: WHEN AN ERROR IS ENCOUNTERED, LOOP ON ERROR, IF NO ERROR IS ENCOUNTERED 


EXECUTE TESTS CONTINUOUSLY. 


SL EELS |; I ee ee 
SS SS a Se essen see wens « 
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CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 
DEFAULT SECTION TEST DESCRIPTIONS 


6.0 TEST DESCRIPTIONS 
6.1 TEST 1: SERIAL LINE TEST 


THIS TEST IS DESIGNED TO SHOW THE OPERATOR THAT THE SERIAL LINE SETUP 
HAS BEEN COMPLETED CORRECTLY. THIS WILL UNCOVER MOST SETUP ERRORS, 
INCLUDING BASIC SERIAL LINE SETUP ERRORS. 


FAILURE OF THIS TEST USUALLY SIGNIFIES THAT THE DIAGNOSTIC IS WORKING 
WITH INCORRECT INFORMATION. 

MAY BE WRONG. IF ALL OF THE PROGRAM INFORMATION WAS CORRECT, TEST 
FAILURE INDICATES THAT THE SERIAL LINE DEVICE FAILED. 


THE TEST SEQUENCE OPERATES IN MAINTENANCE MODE, WITH THE LOOPBACK 
FEATURE SET. ERROR NUMBERS 2 AND 3, LISTED BELOW, DEFINE ERRORS 
ENCOUNTERED WHILE ATTEMPTING TO FLOAT A ONE THROUGH A FIELD OF ZEROS. 
ERROR NUMBERS S AND 6 WILL BE DISPLAYED IF AN ERROR IS ENCOUNTERED 
WHILE FLOATING A ZERO THROUGH THE ONES FIELD. SERIAL LINE LOOPBACK 
FAILURE, ERRORS 4 AND 7, WILL BE DISPLAYED IF THE BYTE RETURNED BY 
LOOPBACK DOES NOT COMPARE WITH EXPECTED DATA. 


ASSUMPTIONS: 
FUNCTIONAL COMMUNICATION INTERFACE 
TEST STEPS: 

3 ae eo ey MODE 


IF PRESENCE DETETED APPROPRIATELY: 
A. PERFORM REGISTER TEST - FLOATING ONE BIT 


IN ZEROS FIELD 
B. PERFORM REGISTER TEST - FLOATING ZERO BIT 
3 IN ONES FIELD 
3. INTERROGATE DEVICE - VERIFY PRESENCE AND DEVICE TYPE 


ERRORS: 
1. SERIAL LINE NOT AT THIS ADDRESS 
ERROR NUMBER 0001 


2. TIMEOUT WAITING FOR OUTPUT DONE 
ERROR NUMBER 0002 


3. TIMEOUT WAITING FOR INPUT RESPONSE 
ERROR NUMBER 0003 


4. SERIAL LINE ‘LOOPBACK’ FAILED 
ERROR NUMBER 0004 
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SEQ 0010 
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CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 
DEFAULT SECTION TEST DESCRIPTIONS 


5S. TIMEOUT WAITING FOR OUTPUT DONE 
ERROR NUMBER 0005 


6. TIMEOUT WAITING FOR INPUT RESPONSE 
ERROR NUMBER 0006 


7. SERIAL LINE ‘LOOPBACK’ FAILED 
ERROR NUMBER 0007 


SEQ 0011 
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413 
414 CZLCP DIAGNOSTIC PROGRAM USER'S DOCUMENT 
415 DEFAULT SECTION TEST DESCRIPTIONS 
416 
417 
418 6.2 TEST 2: COLOR PRINTER SELF TEST 
20 
4 
421 THIS TEST SEQUENCE EXECUTES THE COLOR PRINTER SELF TEST AND MONITORS 
422 ITS EXECUTION. IF AN UNEXPECTED STATUS RESPONSE IS ENCOUNTERED, IT IS 
423 REPORTED AS AN ERROR. ADDITIONALLY, TIMEOUT ERRORS, ERROR NUMBER 1 AND 
424 3. WILL OCCUR IF THE PRINTER MICROCODE DOES NOT RESPOND WITHIN THE 
= ALLOTTED TIME PERIOD. 
42? ASSUMPTIONS: 
Ms FUNCTIONAL COMMUNICATION INTERFACE 
4 
re TEST STEPS: 
4 
433 1. INITIATE SELF TEST EXECUTION ( TRANSMIT ESCAPE SEQUENCE ) 
434 2. READ COLOR PRINTER STATUS 
oie 3. IF ERROR PRINT MESSAGE ELSE END OF TEST 
436 
437 ERRORS: 
438 
439 1. TIMEQUT WAITING FOR INPUT RESPONSE 
440 ERROR NUMBER 0010 
441 
442 2. UNEXPECTED RESPONSE TO ‘POWER-UP’ SELF TEST 
443 ERROR NUMBER OCil 
444 VERI 
445 CPU BAD 
446 000123 156743 023012 203457 143203 156427 012763 003450 
447 
448 3. TIMEOUT WAITING FOR INPUT RESPONSE 
449 ERROR NUMBER 0012 
450 | 
451 
452 NOTE 
asa 
4s5 THE LAST TWO LINES OF THE POWER-UP DIAGNOSTIC FAILURE MESSAGE 
456 CITEM #2, ERROR #0011, ABOVE), WILL VARY ACCORDING TO 7“E VALUE 
457 RETURNED BY THE LCPO1. IN ALL INSTANCES A COMPONENT =NOICATION 
458 (“CPU BAD“) AND A PORTION OF THE “VERIFIED* MESSA:" WILL BE 
459 DISPLAYED, ALONG WITH A REGISTER DUMP. 
460 
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463 
464 CZLCP DIAGNOSTIC PROGRAM USER’S DOCUMENT 
465 DEFAULT SECTION TEST DESCRIPTIONS 
466 
467 
468 6.3 TEST 3: PRINTER DISPLAY TEST 
‘%0 
471 THIS TEST IS DESIGNED TO PRINT A “CANNED” DISPLAY FILE. THIS FILE IS 
472 PRINTED WHEN THE DIAGNOSTIC SENDS A SPECIAL ESCAPE SEQUENCE TO THE 
473 LCPO1'S CONTROLLER ("ESC”, “[", "6", *, 2, "Y"). THIS DISPLAY 
474 HAS BEEN TESTED AND WILL WORK UNLESS THERE IS A SOFTWARE SETUP ERROR OR 
475 A HARDWARE FAILURE. THE TEST PRINTS OUT A RADIANT DISPLAY. 
476 
477 TEST THREE IS ONLY EXECUTED ON THE FIRST TEST PASS. IF SUBSEQUENT TEST 
478 PASSES ARE SPECIFIED, IT IS NOT EXECUTED. SETTING BIT #2 IN THE 
479 SOFTWARE OR HARDWARE SWITCH REGISTER WILL CAUSE EXECUTION TO LOOP 
480 CONTINUOUSLY ON THIS TEST. 
481 
482 ASSUMPTIONS: 
483 
484 FUNCTIONAL COMMUNICATION INTERFACE 
485 WORKING LCPO1 SOFTWARE DRIVER 
486 WORKING LCPO1 PRINTER 
487 
488 TEST STEPS: 
489 
490 1. SEND ESCAPE SEQUENCE TO PRINTER TO REQUEST PRINT 
491 
492 ERRORS: 
493 NO DISTINCT ERROR MESSAGES ARE REQUIRED BY THIS TEST. THE OPERATOR IS 
494 ASKED TO VERIFY THE INTEGRITY OF THE PRINTOUT. 
495 
496 
497 NOTE 
499 
4 
500 THE DIAGNOSTIC DOES NOT WAIT FOR PRINT COMPLETION BEFORE 
501 CONTINUING. THE PRINT PROCESS TAKES ABOUT TWO MINUTES. 
502 
503 
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END OF DOCUMENT 
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549 

S50 

351 

552 

559 

3560 

561 

362 

3563 

564 

565 

566 

567 

568 

369 

570 

371 

572 

573 000000 
574 000001 
575 000002 
376 000003 
577 000004 
378 000005 
579 000006 
580 000007 
581 000006 
382 000007 
383 

584 100000 
385 040000 
3586 020000 
587 010000 
588 004 
3589 002000 
390 001000 
591 000400 
592 000200 
393 000100 
394 000040 
395 000020 
396 000010 
597 000004 
598 000002 
599 000001 
600 

601 000036 
602 000037 


-LIST  SEQ,BIN,LOC 


eeenuaeenssensssnsennsennsensesnssensonssensssnssnnesnsennseees, 


‘TITLE CZLCPA COLOR PRINTER DIAGNOSTIC 
; (DECSPEC- 11-BDFAD-A-D) 


; 
; CZLCP-A-0O 
; CZLCPA a PRINTER DIAGNOSTIC 





UNIT IS 


; COPYRIGHT (C) 1984 DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 


@ 
Daihen init LL LLL LLL LLL TTT re rrr 


RO=s0 

Ri=s1 

R2=s2 

R3=s83 

R4=84 

R5=85 

R6=86 

R7=87 

SP=R6 

PC=R7 

BITi5 =100000 

BIT14 =40000 

BITi3 =20000 

BIT1i2 =10000 

BITii 24000 

BIT10 22000 

BITS =1000 

BIT8 =400 

BIT7 =200 

BIT6 =100 

BITS =40 

BIT4 =20 

BIT3 =10 

BIT2 24 

BIT1 =2 

BITO =] 

SL =36 sSTART VFU LOAD 
;END VFU LOAD 


SEQ@ 0015 
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604 
605 
606 
607 
608 
609 


000000 


000000 


000030 
000032 


000042 


000052 


000060 
000062 


000100 


000102 


000174 
000176 


a ae 


000000 


000030 
004332 
000340 
000042 
000000 
000046 
000052 
040000 


000060 
004754 
000300 


000100 


000340 


000000 


ti eae 


BEGIN: 
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-PSECT ABS 
ENABLE AMA, ABS 
-DSABLE GBL 


.=.+0 


- *BEGIN+30 
TYP 

340 

- =BEGIN+42 
0 

- -BEGIN+46 


LOGICAL 
- =BEGIN+S2 | 
BIT14 


. =BEGIN+60 
TKINT 
300 


- *BEGIN+100 


LKSRV 
340 


CONVRT 

340 

- *BEGIN+174 
DI 


SPREG: 0 
SWREG: 0 
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sKEYBOARD INTERRUPT ROUTINE 


sLINE CLOCK SERVICE ROUTINE 


———_— SE ce tier ste cnet ie. EE eee _———_— — oe — 


SEQ 0016 
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| PARAMETERS 
646 .SBTTL PARAMETERS 
| 647 ieee LLLLLLLE LETT rere 
648 | 8 
| 649 ; BEGINNING OF PROGRAM- 
6 3 
651 000200 START: : 
652 000200 . =BEGIN+200 
6 3 
654 ; THE FOLLOWING INSTRUCTION “MOV #1000,86” IS OVER LAID BY THE LP11 
655 INTERRUPT TESTS. DON'T CHANGE IT WITH OUT BEING AWARE OF THE 
656 PROBLEMS THAT MAY OCCUR. 
657 ithe bbb bbe LLLLLLLLLELE LETT Terre 
658 000200 012706 001000 MOV #1000, 86 
659 3 DNR REEERREREREEEEEEEREREREGHEREREREEEEEE RARER ER EENERERE ERE SOSERS ESSE EEs 
660 000204 000137 001306 $: UP 
661 
662 000300 . =BEGIN+ 300 
665 000300 000137 001464 UMP TESTI 
665 001000 . =BEGIN+ 1000 
667 ;LINE PRINTER HARDWARE REGISTERS 
66 
669 001000 177514 LPS: 177514 ;STATUS REGISTER 
670 ;BIT 15=ERROR 
671 ;BIT 7=READY 
672 ;BIT 6= INTERRUPT ENABLE 
6 
674 001002 177516 LPB: 177516 ;DATA BUFFER REGISTER 
675 sBITS 0-6=7 BIT ASCII CHARACTER BUFFER 
676 ;BITS 7-1S5=NOT USED 
6 
678 001004 177570 SWR: 177570 
679 001006 177570 DISPLAY: 177570 
680 001010 177776 PSW: 177776 
681 001012 177570 HWSWR: 177570 
682 001014 177566 TPB: 177566 
683 001016 177562 TKB: 177562 
684 001020 177564 TPS: 177564 
685 001022 177560 TKS: 177560 
686 001024 172542 CSBR: 172542 
687 001026 172540 PLKS: 172540 
688 001030 177546 LKS: 177546 
68 
690 001032 176500 DLCSRC: .WORD 176500 ;0L'S DEFAULT CSR 
691 001034 176500 DLCSR: .WORD 176500 ;0L‘S DEFAULT CSR 
692 001036 160100 OZCSR: .WORD 160100 :0Z'S DEFAULT CSR 
693 001040 160100 OZCSRC: .WORD 160100 ;02'S DEFAULT CSR 
694 001042 000300 DLVEC: .WORD 300 :DL'S DEFAULT VECTOR ADDRESS 
695 001044 000300 DZVEC: .WORD 300 :DZ'S DEFAULT VECTOR ADDRESS 
696 001046 000200 PTRC: .WORD 200 ;LP’S DEFAULT VECTOR ADDRESS 
697 001050 000200 PTRVEC: .WORD 200 
698 001052 000202 PTRPSW: .WORD 202 
699 000240 NOP =240 
700 000001 = 
701 000002 M =2 
702 000001 W =] 
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' 
j 
' 
' 





ee ee 
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-SBTTL MACROS 
i EEEREREEEEREEEEE EE EREREEEEE EEE EKEEEEARERRRER ERE RERRERERERR KEES 


; ---MACROS- - - 


sMACRO FOR SETTING UP ERROR COUNT 
; 
; $ERROR = CALL 


: X = ERROR NUMBER 
; Y = LOOP ADDRESS IF SWR BIT SET 
-LIST ME 
-MACRO $ERROR X,Y 
ERR’ X': MOV “eX, ERCOUNT ;SET UP ERROR COUNT x 
-NLIST ME 
N=N+1 
-NLIST 
.LIST ME 
LIST 
JSR #5,STAER sREPORT ERROR SET 
NLIST ME 
IF NB Y 
-NLIST 
-LIST ME 
LIST 
$TSWRG #100000 :CK SW REG 
BEQ CN‘ xX! sCONTINUE IF BIT 15 = 0 
JMP Y ;OTHERWISE LOOP 
CN’X': 
-NLIST ME 
- ENDC 
NLIST 
LIST ME 
.LIST 
-ENOM $ERROR 
sMACRO FOR PRINTING TEST NUMBER AT START OF TEST 
-MACRO $PRTSN Y 
EMT 0 ;PRINT TEST NUMBER 
TYO'Y' ;TEST NUMBER MESSAGE 
. ENDM $PRTSN 
; WAIT MACROS - - 
; Z = ERROR @ CUSUALLY “W") 
; X = ERROR JMP ADDRESS, IF NONE - DEFAULT LOOPS BACK TO WAIT'z’ 
3 Y = LOOP ON ERROR, IF BIT 15 OF SWR SET 
; #T = 2ND PASS TIME (1 COUNT = ABOUT 1/2 SEC), IF NONE = 100 OCTAL 
-MACRO $WAITI 2Z,xX,Y,T 
;WAIT FOR INPUT, OR TIMEOUT 
WAIT'Z’: 
-NLIST 


ME 
. IF NB T 


—— ee en 
ee en ee — ent ame 


- ee ee ee 8 re a 


AS <a noe ees a ee ee ~——_— ~ - 


me wee ee ee eee. 7 
ee ee eee 


me ee ee cee 
eo ee 
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i 

761 -NLIST 

762 -LIST ME 

763 -LIST 

764 MOV #100, WORK ;LOAD CNR 

765 CMP #1,CYCCNT ;2ND PASS? 

766 BNE WDD‘ Z' ;NO, LEAVE COUNT AS IS 

767 MOV T,WORK ;LOAD CNTR WITH LONG CNT 

768 -NLIST ME 

769 .ENOC 

770 . IF BT 

771 »-NLIST 

772 .LIST ME 

773 Let 

774 MOV #100, WORK sLOAD CNTR 

775 -NLIST ME 

776 . ENDC 

777 -NLIST 

778 .LIST ME 

779 .LIST 

780 WDD'Z': MOV #-1,WORKA sLOAD COUNT 

781 DEC WORK ;sBUMP CNTR 

782 BEQ WER‘ Z' sERROR IF TIMEOUT 

783 WDE'Z': DEC A ;BUMP COUNT 

784 BEQ WDD‘ 2' ;LOOP IF COUNT 0 

785 TSTB @DLLPS :CK STATUS 

786 BPL WDE’ Z' sLOOP TIL DONE 

787 BR WEX' 2’ 3; CONTINUE 

788 WER'Z': $TSWRG #20000 :CK SW REG 

789 sTEST FOR INHIBIT ERROR MSG 

La BNE +6 ;BRANCH IF NO MSG WANTED 
1 

792 +0 

793 ETIM ;TIMED OUT ERROR 

794 -NLIST ME 

795 IF NB Y 

796 -NLIST 

797 -LIST ME 

798 -LIST 

799 

800 $ERROR \N,Y 

801 -NLIST ME 

802 - ENDC 

803 .1IF BY 

804 »NLIST 

805 -LIST ME 

806 -LIST 

807 

808 $ERROR \N 

809 -NLIST ME 

810 . ENDC 

811 iF BX 

812 -NLIST 

813 -LIST ME 

814 -LIST 

815 

816 BR WAIT'2' ;LO0P 

817 NLIST ME 


ee eee ee 


* | EK AT 


/CZLCPA COLOR PRINTER DIAGN 
MACROS 


OSTIC MACRO M1113 12-MAR-85 15:38 


NB X 


x 


$WAITI 


;EXIT 


sMACRO FOR WAITING FOR OUPUT, DONE 


. ENDC 
NLIST 
LIST ME 
LIST 
JMP 
NLIST ME 
.ENDC 
NLIST 
LIST ME 
LIST 
WEX'Z': 
NLIST ME 
W=Wel 
NLIST 
LIST ME 
LIST 
.ENDM 
- MACRO 
WAIT'Z': MOV 
WOD'Z': MOV 
DEC 
BEQ 
WDE'Z': DEC 
BEQ 
TSTB 
BR 
WER'Z': $TSWRG 
BNE 
EMT 
ETIMO 
NLIST 
oar 
~NLIST 
-LIST ME 
-LIST 
$ERROR 
NLIST 
-ENDC 
IF 
NLIST 
-LIST ME 
-LIST 
$ERROR 
NLIST 


$WAITO Z, 


\N 


a .¥ 
sWAIT FOR OUPUT, TIMEOUT 
310 SEC oente 
;LOAD COUNT 
;BUMP CNTR 
sERROR IF TIMEOUT 
BUMP COUNT 


3 C 
;LOOP IF COUNT 0 
:CK STATUS 


G 
sTEST FOR INHIBIT ERROR MSG 
sBRANCH IF NO MSG WANTED 


;TIMED OUT ERROR 


SEQ 0020 


—_ ee OS Sea SSeSsttsenssesussten etesseticnses-~eesee~srsninsenetieeese en... Se ne — — -—— “ 
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; MACROS 
875 .ENDC 
876 oar B xX 
877 -NLIST 
878 -LIST ME 
879 -LIST 
880 
881 BR WAIT’ Z' ;LO0P 
882 -NLIST ME 
883 -ENOC 
884 iF NB X 
885 »-NLIST 
886 -LIST ME 
887 -LIST 
888 
889 JMP x ;EXIT 
890 -NLIST ME 
891 -ENDC 
892 »-NLIST 
893 -LIST ME 
894 -LIST 
895 
896 WEX'Z' 
897 -NLIST ME 
898 W=Wel 
899 »-NLIST 
900 -LIST ME 
901 -LIST 
902 -ENDM $WAITO 
903 
904 ; 
905 sMACRO FOR ENABLING KEYBOARD INTERUPT 
906 ; 
907 -MACRO sENABLE 
908 -NLIST ME 
909 33;988 CMP #176,SWR :S/W SWR ? 
910 :3:;988 BNE -#10 ;NO- CONTINUE 
911 -NLIST 
912 .LIST ME 
913 -LIST 
914 BIS #100 ,8TKS sENABLE KEYBOARD INTERRUPT 
916 MOV #0,2¢SP) 
917 MOV #.°6,(SP) 
918 RTI 
=> -ENDM $sENABLE 
921 sMACRO USED TO LOAD THE PSW WITH THE 
j= s;CORRECT PROCESSOR PRIORITY LEVEL 
; 
924 -MACRO $SETPSW 
925 MOV PC,-CSP) sMOVE PRESENT LOCATION TO STACK 
926 ADD #6, (SP) ;SET UP FOR NEXT INSTRUCTION 
927 RTI :LOAD PSW 
928 .ENDM $SETPSW 
929 
930 ; 
931 sMACRO USED TO PRINT MESSAGE TO LINE PRINTER 


—_ ee ee 
ee Oe | ee 


| Je 
press COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MaAR- 85 15:38 SEQ 0022 
| 
932 
933 * MACRO $PRINT V 
934 MOV #'V' ,PRTMSG ee MESSAGE ADDRESS 
935 JSR 64 , PRINE ;PRINT IT 
936 .ENDM $PRINT 
937 
938 ; 
ane MACRO TO TYPE MESSAGE ON THE TERMINAL 
4 
941 MACRO $TYPE G 
942 EMT +0 Call “TYP” interrupt 
943 G s;address of message 
944 .ENDM $TYPE 
945 
946 ; 
947 ; MACRO TO TEST HARDWARE AND SOFTWARE SWITCH REGISTERS 
948 ; 
949 -MACRO $TSWRG MSK 
950 CMP 76,SWR sHW SWITCH REG THERE? 
951 BEQ .+12 ;NO, SKP HW CHECK 
952 BIT MSK , HWSWR YES, CK HW REG 
953 BNE .*10 sIF SET, SKP SW REG CK 
aan _ MSK , SWREG S OTHERWISE, ALSO CK SW REG 
95 : 


ee ee ee eee ee ee 


SL A ee me 
SO EE eS a 


CZLCPA COLOR PRINTER 


VARIABLES 


001054 


001110 
001112 


001114 
001116 
001120 
001122 


-SBTTL VARIABLES 
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Ke 


<a eae eae: «ae « ——_——_— —- —— —e « 


SEQ 0023 


3 eaten hat bLLLLLLLL LLL TTT TTT rrr ere 


; MEMORY LOCATIONS USED AS PROGRAM FLAGS AND COUNTERS 


; 

SEGCNT: 
CHRCNT: 
CHRGEN: 
LINCNT: 
CYCCNT: 


EIA: 


0 
0 
0 
0 
0 


» WORD 


SOoCoSCCOCOCCOOCCCCCCO 


. BLKB 


oooo 80 SCCOCOCCOO ooo 


80. 


sHOLDS DZ‘'S TCR REGISTER 
sHOLDS DZ‘S LPR REGISTER 
sHOLDS DZ’S LINE ¢ 


sHOLDS DL’S BAUD RATE BITS 
;0L’S RECV REG 

sDL’'S RECV BUFFER 

sHOLD BAUD RATE BITS 

+; (DL) HOLD BAUD RATE BITS 
sSHOWS DL11 PRESENCE 


sADDRESS OF DZ DTR REGISTER 
sLINE TYPE O=20MA 1=EIA 


sDL TYPE O=ALL OTHERS 1-€/F 
s0Z'S RECEIVER BUFFER ADDRESS 
sHOLDS DZ‘'S CSR ADDRESS 
sMAINTENANCE BIT, IF NOT 0 


= —-. re ee ee ee - . 


nes 


A ~<a 


CZLCPA COLOR PRINTER DIAGNO 
SETUP SERIAL LINE PARAMETER 


012737 
012737 
022626 
012637 
012637 


052777 


000004 
000006 
001350 
177444 


000176 
000174 


010234 


000004 


001004 
001006 


177416 
000002 


001164 








Le 
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-SBTTL SETUP SERIAL LINE PARAMETERS 
i EE ESEEE EERE EEEREEEEEE EE EES REE EAENERESE REDE KR ERE RER EOS SEKE EES 


: 
sROUTINE TO TEST THE MECH. OPERATION OF THE LXY¥11/21-LxXV11 
3 


SETUP: JSR #4, TYPINT sPRESET POINTERS 
CLR CYCCNT sCLEAR PASS COUNT 
CLR SIGNAL ;CTRL G FLAG 
RESET ;CLEAR WORLD 
MOV 4,-(SP) sSAVE CURRENT VECTORS 
MOV 6,-(SP) t 
MOV #1$,4 ;SET UP TIMEOUT VECTOR 
TST BHWSWR ;TRY TO ACCESS HAROWARE sSwR 
- BR 2$ sIF THERE, GO TO 23 
MOV @SWREG , SWR sPOINT TO SOFTWARE SUR 
MOV @DISPREG,DISPLAY ;POINT TO SOFTWARE DISPLAY 
CMP CSP)+,(SP)- sRESTORE STACK 
2s: MOV CSP)+,6 sRESTORE TIMEOUT VECTORS 
Vv CSP)-,4 ; 
SENABLE 
BIS #100 ,aTKS sENABLE KEYBOARD INTERRUPT 
MOV -(SP),-(CSP) 
MOV #0,2(SP) 
MOV #.+6,(SP) 
RTI 
TST PASSA 
BNE 3$ ;SKP 
MOVB #1,PASSA 
EMT 0 
at ‘ ;TYPE DIAGNOSTIC TITLE 
MES2 sTYPE NAME 
EMT +0 
MES3 ; 
3$: JSR #7 ,SETSER sCHECK FOR SERIAL LINE SELECTION 
oa ° sREQUIRED INSURANCE 
MES4 s;TYPE RESTART ADDRESS INFO 


SEQ 0024 





Me 
CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR-85 15:38 SEQ 0025 
1042 .SBTTL 
1043 -SBTTL TEST @ DESCRIPTION 
1044 8) Se ee 
1045 -SBTTL TEST 1 SERIAL LINE UNIT TEST 
1046 i COOLERS EESEEEEEEEOEEEEE ORES EETEEEHESESES SENOS EEESSENESEEESEbESESEeeecese 
1047 ; 
1048 : Test 1 Seriel Line Unit test 
1049 8 
1050 3 Test 1-A 
1051 3 
oe : - Insure SLU is there, at correct eddress. 
1054 : Test 1-8 
1055 : 
— : - If Loopback feature (echo) is present, Test the SLU: 
: 
1058 ; @ - with floating one bit field 
1059 : b - with floating zero bit field 
1060 : 
1061 $ 
1062 : 
po ; CHECK FOR PRINTER (SLU) ON BUS 
1 3 
1065 -ENABL LSB 
1066 001464 052777 000100 177330 TESTI: BIS @100,aTKS sENABLE KEYBOARD 
1067 001472 $TSWRG #40000 ;CK SW REG 
001472 022737 000176 001004 CMP #176,SWR sHW SWITCH REG THERE? 
001500 001404 BEQ -¢12 ;NO, SKP HW CHECK 
001502 032777 040000 177302 BIT #40000 , BHWSWR YES, CK HW REG 
001510 001003 BNE -*10 sIF SET, SKP SW REG CK 
001512 032737 040000 000176 BIT #40000 , SWRES ; OTHERWISE ALSO CK SW REG 
1968 001520 001002 BNE i$ 3IF SET, SKIP TST @ HDR MSG 
1069 001522 $PRTSN 1 
001522 104000 EMT 0 :PRINT TEST NUMBER 
001524 005571 TYO1 :TEST NUMBER MESSAGE 
1070 
1071 001526 013746 000004 1$: MOV 904, -( SP) ;SAVE VECTORS 
i072 001532 013746 000006 MOV 906, -(SP) 3; SAVE 
1073 001536 012737 001552 000004 MOV 623 ,4 sRELOAD VECTOR 
1074 001544 105777 i77230 TSTB ALPS :IS PRINTER THERE? 
oh 001550 000447 BR 4$ sYES, SKIP TRAP PROCESSING 
1076 
1077 001552 2$: sIF YES, NEVER GET HERE. 
1078 001552 022626 CMP CSP )-.(SP)- sRESTORE STACK 
1079 001554 012637 000006 MOV (SP )+,6 sRESTORE VECTORS 
1080 001560 012637 000004 MOV (SP )-,4 sRESTORE 
1081 001564 $TSWRG #20000 CK SW REG 
001564 022737 000176 001004 CMP #176,SWR sHW SWITCH REG THERE? 
001572 001404 BEQ -*l2 3NO, SKP HW CHECK 
001574 032777 020000 177210 BIT #20000 , SHWSWR ;YES, CK HW REG 
001602 001003 BNE 10 sIF SET, SKP SW REG CK 
001604 032737 020000 000176 BIT #20000, SWREG SOTHERMISE, ALSO CK SW REG 
1082 001612 001002 BNE 6 :IF INHIBIT ERR MSG 
1083 001614 104000 EMT +0 
1084 001616 006704 ERMS1 ‘ ;SLU NOT THERE 
1085 001620 $ERROR \N,1$ sNOTHING THERE 
001620 012737 000001 001136 ERR1: MOV #1, ERCOUNT sSET UP ERROR COUNT 1} 





CZLCPA COLOR PRINTER DIA 
TEST 1 SERIAL LINE UNIT T 


1091 
1092 


001626 


001670 
001674 


me oll ee ae ee ee 


004537 


022737 


012637 
012637 


004606 


000176 
100000 
100000 
001526 


000006 
000004 


001004 
177142 
000176 


> es MACRO M1113 12-MAR-85 15:38 





———— — ee ne 


SEQ 0026 
JSR #5,STAER sREPORT ERROR SET 
$TSWRG #100000 s;CK SW REG 
CMP elt SWR sHW SWITCH REG THERE? 
BEQ sNO, SKP HW CHECK 
BIT #100000, ars ‘YES, CK HW REG 
BNE sIF SET, SKP SW REG CK 
BIT #100000, SWREG ; OTHERWISE, ALSO CK SW REG 
BEQ CN1 sCONTINUE IF BIT 15 = © 
JMP if sOTHERWISE LOOP 
BR SETUP 
YES, SLU IS HERE 
MOV (SP)+,6 sRESTORE VECTORS 
MOV (SP)+,4 sRESTORE 


—— ee ee ee 


“* _——_ “~- 


iC 
7 


ZLCPA COLOR PRINTER DIAGNO 


— — A A ee 


EST 1 SERIAL LINE UNIT TEST 


001700 
001704 
001706 


001712 
001720 
001724 


001730 


001730 
001736 
001744 


002016 
002020 
002022 


—_————— cee ~ 


053777 
012700 
010037 


012737 
012737 
005337 
001407 
005337 
001767 
105777 
100372 
000442 


022737 


032737 
001002 


104000 
006007 


012737 
004537 


022737 


001122 
003016 


001132 
177014 


000176 
020000 
020000 


177060 


001130 
001132 


001004 
177004 
000176 


001136 


001004 
176736 
000176 
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3 *SSSESSSSSRSSERESESSSESSESE SESE SEEHEHESESEEHEREEEESEHERESHEESEEEEESESEEEees 


Test 1-8 
- If Loopback feature (echo) is present, Test the SLU: 
@ - with floating 


one bit field 


b&b - with floating zero bit field 


TST MAINTB 
BNE 33 
JMP 40$ 
3 
Test 1-B-a 


Wee oe cs os o 


$: BIS 
10$: 
12$: $WAITO 


WAIT1: MOV 
WDD1: 


WDE1: 


WER1: 


ERRe: 





MAINTB, @LPS 
#1,RO 
RO, SAVE 


SS Se = = | ee | 


sNONZERO IF LOOPBACK FEATURE PRESENT 


sHERE, CONTINUE 
sNOT HERE, SKIP SUBTEST 


FLOAT A ONE BIT THRU ALL ZERO BYTE 


sSET MAINTENANCE (LOOPBACK) BIT 
sSET BIT #0 
sSAVE IT 


sWAIT FOR OUPUT, OR TIMEOUT 

310 SEC CNTR 

;LOAD COUNT 

;BUMP CNTR 

sERROR IF TIMEOUT 
;BUMP COUNT 

sLOOP IF COUNT 0 
:CK STATUS 


sHW SWITCH REG THERE? 
3NO, SKP HW CHECK 

sYES, CK HW REG 

sIF SET, SKP SW REG CK 
sOTHERWISE, ALSO CK SW REG 
sTEST FOR INHIBIT ERROR MSG 
sBRANCH IF NO MSG WANTED 


sTIMED OUT ERROR 


SET UP ERROR COUNT 2 
sREPORT ERROR SET 


:CK SW REG 

sHW SWITCH REG THERE? 

;NO, SKP HW CHECK 

;YES, CK HW REG 

;IF SET, SKP SW REG CK 

sOTHERWISE, ALSO CK SW REG 
;sCONTINUE IF BIT 15 = 0 
sOTHERWISE LOOP 





————— LL LS le sseesesssenessneee ee —————eEe RE, stg eee nen te ee ne en ee re 


6 ew eee 


i, tte 


'CZLCPA COLOR 
TEST 1 SER 


TAL 
002072 
002072 


002074 
002074 


002100 


092254 
002256 
002260 
002260 


PR 


INTER 
LI 


000716 


110077 


012737 
012737 
005337 
001407 
005337 
001767 
105777 
100372 
000442 


022737 


032737 
001002 


104000 
005731 


012737 
004537 


022737 
001404 
032777 
001003 
032737 
001402 
000137 


000716 


117701 
120001 
001431 


104000 
006756 


012737 


DIAGN 
NE UNIT 


176702 


000100 
177777 
001124 
001126 


176742 


000176 
020000 
020000 


000003 
004606 


000176 
100000 
100000 
001712 


176630 


000004 


001124 
001126 


001004 
176634 
000176 


001136 


001004 


176566 
000176 


001136 





CN2: 


WEX1: 


14$; 
WAIT2: 
WDDe2: 
WDEe2: 


WER: 


ERR3: 


CN3: 


WEX2: 


ERR4: 


OSTIC MACRO M1113 12-MAR-85 
TEST 


MOVB 
$WAITI 





CS 


15:38 


WAIT1 


RO, @LPB 
\W, ,9$ 


#100, WORK 


#20000, BHWSWR 


- +6 


\N, 9$ 
03 


° ERCOUNT 
#5,STAER 


WAIT2 


@DLRBUF ,R1 
RO,R1 


16$ 


;LOOP 
;XMIT BYTE 


sWAIT FOR INPUT, OR TIMEOUT 


;LOAD CNTR 
sLOAD COUNT 


UMP C 
;LOOP IF COUNT O 
;CK STATUS 
sLOOP TIL DONE 
3; CONTINUE 
;CK SW REG 
sHW SWITCH REG THERE? 
3NO, SKP HW CHECK 
sIF SET, SKP SW REG CK 
sOTHERWISE, ALSO CK SW REG 
sTEST FOR INHIBIT ERROR MSG 
s;BRANCH IF NO MSG WANTED 


sTIMED OUT ERROR 


SET UP ERROR COUNT 3 
sREPORT ERROR SET 


;CK SW REG 

sHW SWITCH REG THERE? 

;NO, SKP HW CHECK 

sYES, CK HW REG 

sIF SET, SKP SW REG CK 

sOTHERWISE, ALSO CK SW REG 
sCONTINUE IF BIT 15 = 0 
sOTHERWISE LOOP 


;LOOP 


:GET BYTE IN 
3s SAME? 
; OK 


;"LOOPBACK FAILED” MSG 
sLOOPBACK FAILED 
sSET UP ERROR COUNT 4 


SEQ 0028 


es _ 


' CZLCPA COLOR PRINTER uty teen MA 


| 


TEST 1 


SERIAL L 
002266 
002272 


LINE UNIT T 
004537 004606 


022737 
001404 
032777 
001003 
032737 
001402 
000137 


013700 
000137 


000241 
006100 
105700 
100402 
000137 


012700 
142700 
010037 


012737 
012737 
005337 
001407 
005337 
001767 
105777 
100372 
000442 


022737 


012737 
004537 


000176 
100000 
100000 
001712 


001134 
001730 


001724 


000005 
004606 


001004 
176502 
000176 


001130 
001132 


001004 
176346 
000176 


001136 


CN4: 


16$: 


205: 


22$: 


WAITS: 


WDOD3: 


WDE3: 


WERS: 


ERRS: 
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DS 


;REPORT ERROR SET 


;CK SW REG 
sHW SWITCH REG THERE? 


3NO, SKP HW CHECK 

‘YES, CK HW REG 

3; IF SET, SKP SW REG CK 

s OTHERWISE , ALSO CK SW REG 
; CONTINUE IF BIT 15 
sOTHERWISE LOOP 


sRESTORE, RO 
sTRY AGAIN 


sCLEAR CARRY 
sSHIFT BIT 


sNOT FINISHED 


:SET ALL + ai BIT #0 
;CLR BIT 
;SAVE IT 


sWAIT FOR OUPUT, OR TIMEOUT 
310 SEC CNTR 
Ty IF TIMEOUT 
OUNT 


BUMP C 
LOOP IF COUNT 0 
sCK STATUS 


REG 
F SET, SKP SW REG CK 
‘OTHERUESE, ALSO CK SW REG 


—- a ee ee ee ee eee ae SS ee ee ee -—— - 


SEQ 0029 


* @ 


sTEST FOR INHIBIT ERROR MSG 


sBRANCH IF NO MSG WANTED 
; TIMED OUT ERROR 
sSET UP ERROR COUNT 
sREPORT ERROR SET 
CK SW REG 


JSR #5,STAER 
$TSWRG #100000 

CMP ett i SWR 

BEQ 

BIT #100000, BHWSWR 
BNE +10 

BIT #100000, SWREG 
BEQ CN4 

JMP 9$ 

MOV SAVE ,RO 

JMP 12$ 

CLC 

ROL RO 

TSTB RO 

BMI +6 

JMP 10$ 

Test 1-B-b 

FLOAT A ZERO THRU ALL ONES BYTE 

MOV #176,RO0 

BICB #200 ,,RO 

MOV RO, SAVE 
$WAITO \W,,20% 
MOV #20, TIME 

MOV #-1, TIMER 
DEC TIME 

BEQ WER3 

DEC TIMER 

BEQ WDD3 

TSTB @LPs 

BPL 

BR  WEXS 

$TSWRG @ 

CMP 176,SWR 

BEQ .¢12 

BIT #20000 , SHWSWR 
BNE -*10 

BIT #20000 , SWREG 
BNE +6 

EMT +O 

ETIMO 

$ERROR \N,20$ 

V #5, ERCOUNT 

JSR #5,STAER 
$TSWRG #100000 


S 


| 
| 


CZLCPA COLOR PRINTER DIAGN 
TEST 1 RIA 


1149 
1150 
1151 


SERTAL 


002524 
002530 


002530 


002532 
002532 


002614 
002616 


002624 


002626 
002630 


002702 


i a rm ae ae aay 


LINE UNIT TES 


022737 


000137 


000716 


110077 


012737 
012737 
005337 
001407 
005337 
001767 
105777 
100372 
000442 


022737 
001404 
032777 
001003 
032737 


001002 


104000 
005731 


012737 
004537 


022737 
001404 
032777 
001003 
032737 
001402 
000137 


000716 


117701 


000176 
100000 
100000 
002356 


176244 


000100 
Avrevre 
001124 
001126 


176304 


000176 
020000 
020000 


000006 
004606 
000176 
100000 
100000 
002356 


176172 


001004 
176300 
000176 


001124 
001126 


001004 
176176 
000176 


001136 


001004 
176130 
000176 


CNS: 


WEX3: 


24$: 
WAIT4: 
WOD4: 


WDE4: 


WER4: 


ERR6: 


CN6: 


WEX4: 


“ye MACRO M1113 12-MAR-85 


MOVB 
$WAITI 


MOVB 





ES 


15:38 

#176,SWR 

-+12 
ee 
a 

#100000, SWREG 
CNS 

20$ 

WAITS 


RO, @LPB 
\W, ,20$ 


#20000, SWREG 
6 
+0 


\N,20$ 


#6, ERCOUNT 
#35 ,STAER 


WAIT4 


@DLRBUF ,R1 


SEQ 0030 


sHW SWITCH REG THERE? 

sNO, SKP HW CHECK 

YES, CK HW REG 

sIF SET, SKP SW REG CK 

s;OTHERWISE, ALSO CK SW REG 
s;CONTINUE IF BIT 15 = © 
;OTHERWISE LOOP 


;LOOP 
sXMIT BYTE 


sWAIT FOR INPUT, OR TIMEOUT 


;LOAD CNTR 
;LOAD COUNT 
;BUMP CNTR 
sERROR IF TIMEOUT 
;BUMP COUNT 
sLOOP IF COUNT 0 
;CK STATUS 


; TIMED OUT ERROR 


sSET UP ERROR COUNT 6 
sREPORT ERROR SET 


:CK SW REG 
sHW SWITCH REG THERE? 
:;NO, SKP HW 


;IF SET, SKP SW REG CK 
sOTHERWISE, ALSO CK SW REG 


sCONTINUE IF BIT 15 = 0 
s;OTHERWISE LOOP 


;LO0P 


;GET BYTE IN 


————— SS ee nee nn ee ee + es ee eee — ee - 


———- ai <_ 
-—-——ee eS ll Oe ee 


| CZLCPA COLOR PRINTER DIAGNOSTIC MA 


; TEST 1 SERIAL 


002724 
002730 


LINE UNIT TEST 


120001 
001431 


104000 
006756 


012737 
004537 


022737 


022737 
001404 
032777 
001003 
032737 
001402 
000137 


000007 
004606 
000176 
100000 
100000 
002356 


001134 
002366 


002356 
001122 


000176 
000001 
000001 
001464 


001136 


001004 
176044 
000176 


175762 


001004 
175756 
000176 


ERR7: 


CN7: 


26$: 


: 
40$: 
59$: 


CMPB 
BEQ 


EMT 
ERMS2 
SERROR 


%5.STAER 
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RO,R1 
26% 


+0 


\N,20 
#7 


RO 
RO 
-*6 
20$ 
MAINTB, ALPS 


ERCOUNT 


SEQ 0031 


; SAME? 
; OK 


;"LOOPBACK FAILED” MSG 
s;LOOPBACK FAILED 
sSET UP ERROR COUNT 7 
sREPORT ERROR SET 


;CK SW REG 

sHW SWITCH REG THERE? 

;NO, SKP HW CHECK 

;YES, CK HW REG 

;IF SET, SKP SW REG CK 

sOTHERWISE, ALSO CK SW REG 
sCONTINUE IF BIT 15 = 0 
sOTHERWISE LOOP 


sRESTORE, RO 
;TRY AGAIN 


sSET CARRY 
sSHIFT BIT 


sNOT FINISHED 
sCLEAR MAINTENANCE (LOOPBACK) BIT 


:CK SW REG 

sHW SWITCH REG THERE? 

;NO, SKP HW CHECK 

;YES, CK HW REG 

sIF SET, SKP SW REG CK 
sOTHERWISE, ALSO CK SW REG 
;CONTINUE IF = 0 

;IF SET, LOOP ON TEST 


mee ome we eee eee — 
me ee = = ee 


ee ee eee —_—— = 


—- SO A Sm 


003106 
003106 
003114 


003120 
003124 
003126 
003132 
003134 
003136 
003142 


003142 
003142 
003150 
003156 
003160 
003166 
003174 
003200 
003202 


—_= iti oe 


'CZLCPA COLOR PRINTER DIAGNOST 
, TEST 2 COLOR PRINTER ‘SELF’ 


022737 
001404 
032777 
001003 
032737 
001002 


104000 
005630 


012737 


004437 


012703 


001002 
000137 


012737 


000176 
040000 
040000 


005542 
004250 


001166 
005556 


003604 


000100 
000001 


000600 
177777 
001124 


001126 


001004 
175722 
000176 


004312 


001124 
001064 


001124 
001126 


-SBTTL TEST 2 


onl 
m 
wn 
—_ 
a8) 


: 
; SEND 


615: 


IC MACRO M1113 12-MAR-85 15:38 
TEST 


Test 2 Initialization Test 


-A Invoke "Confidence (Self) Test” of Color Printer 





GS 


COLOR PRINTER ‘SELF’ TEST 
; PRSESEEESEA GAGES RERER ERRORS EE SESESEREREEEEEEEEHEEEEEERREEREEEEEEEEEROOES 


ee ee eee ee ee ee _—-————— —.. — _—— —_—- - 


SEQ 0032 


——— ee me eee * 
re me ee 


-B Monitor and report unexpected response: 


Issue request for device “state” or “status” 


correct response: 


“VERIFIED” message = I'm OK 
= I'm Not OK 


Anything else 


$TSWRG #40000 

CMP #176,SWR 

BEQ .+12 

BIT #40000 , SHWSWR 
BNE .+10 

BIT #40000 , SWREG 
BNE 1$ 

$PRTSN 2 

EMT + 

TY02 


:CK SW REG 

sHW SWITCH REG THERE? 
sNO, SKP HW CHECK 
;YES, CK HW REG 

sIF SET, SKP SW REG CK 
sOTHERWISE, ALSO CK SW REG 
sIF SET, SKIP TST # HDR MSG 


;PRINT TEST NUMBER 
;TEST NUMBER MESSAGE 


and check for 


“ESCAPE” SEQUENCE TO THE PRINTER 


$PRINT LCPS 
JSR 


MOV #LCPS,PRTMSG 
#4, PRINE 


sINVOKE CONFIDENCE TEST 
sLOAD MESSAGE ADDRESS 
sPRINT IT 


; 
; EXPECT “VERIFIED” MESSAGE FROM PRINTER 


62$: 


WAITS: 


WODS : 


WOES: 


MOV BUFF ,R3 
CLRB CR3) 

MOV #LCP7,R1I 
MOVB CR1),RO 
BNE #6 

JMP 69$ 
$WAITI \W,,TEST2, #600 
MOV #100, WORK 
CMP #1,CYCCNT 
BNE WODS 

MOV #600 , WORK 
MOV #-1 »WORKA 
DEC WORK 

BEQ WERS 

DEC WORKA 


;GET RESPONSE 

s INPUT BUFFER ADDRESS 
sNULL BYTE 

sEXPECTED STRING ADDRESS 
;GET EXPECTED CHAR 


sEND OF MSG, EXIT 
sWAIT FOR INPUT, OR TIMEOUT 


;LOAD CNTR 

32ND PASS? 

;NO, LEAVE COUNT AS IS 
sLOAD CNTR WITH LONG CNT 
sLOAD COUNT 
;BUMP CNTR 


- —— ee ee ee 


| 


| 
| 


CZLCPA COLOR PRINTER DIAGNO 
‘ SELF ‘ 


= —— eal) «Eee eum 


TEST 2 COLOR PRINTER 


003206 


003240 
003246 


003250 
003252 


003254 
003254 
003262 


003266 
003266 
003274 
003276 
003304 
003306 
003314 
003316 
003322 


003322 


003324 
003324 
003330 
003332 
003334 
003336 
003340 


003342 
003346 
003350 
003352 


003370 


003374 
003376 


001767 
105777 
100372 
000442 


022737 


032737 
001002 


104000 
005731 


012737 
004537 


022737 
001404 
032777 
001003 
032737 
001402 
000137 


000707 


117702 
110223 
105013 
112100 
120002 
001674 


020327 
003003 
105741 
000137 


104000 
007120 


012737 
004537 


104000 
001166 


175662 


000176 
020000 
020000 


000010 
004606 


000176 
100000 
100000 
003052 


175550 


0061172 


003132 


000011 
004606 


2 ee ame 


001004 
175554 
000176 


001136 


001004 
175506 
000176 


001136 ERR11: 





WERS: 


ERR10: 


STIC MACRO M1113 12-MAR-85 15:38 
TEST 


CN10: 


WEXS: 


66$: 





HS 
SEQ 0033 
WODS ;LOOP IF COUNT O 
@DLLPS ;CK STATUS 
WOES ;LOOP TIL DONE 
WEXS ; CONTINUE 
#20000 ;CK SW REG 
#176,SWR ;HW SWITCH REG THERE? 
.+12 ;NO, SKP HW CHECK 
#20000 , SHWSWR ;YES, CK HW REG 
.*#10 ; IF SET, SKP SW REG CK 
#20000 , SWREG S OTHERWISE, ALSO CK SW REG 
; TEST FOR INHIBIT ERROR MSG 
.*6 sBRANCH IF NO MSG WANTED 
+0 
;TIMED OUT ERROR 
\N, TEST2 
#10, ERCOUNT ;SET UP ERROR COUNT 10 
#5 ,STAER sREPORT ERROR SET 
#100000 ;CK SW REG 
#176,SWR sHW SWITCH REG THERE? 
+12 ;NO, SKP HW CHECK 
#100000, QHWSWR ‘YES, CK HW REG 
#10 SET, SKP SW REG CK 


:IF 
#100000, SWREG : OTHERWISE, ALSO CK SW REG 
CN1 ; CONTINUE IF BIT 15 = 0 


TEST? ;OTHERWISE LOOP 
WAITS ;LOOP 
@DOLRBUF , R2 ;GET CHAR IN 
R2,(R3)+ sSTORE IT 
CR3) ;NULL NEXT BYTE 
(R1)+,RO ;GET EXPECTED CHAR 
RO 6 R2 H COMPARE 
64$ :0K, WAIT FOR ANOTHER 
4 GARBAGE BYTES, LOOKING FOR “y" 
R3, #BUFF +4 ns POINTS TO GARBAGE STORED 
66$ THAN 4 MISCOMPARES 
-(R1) ;RESET TO BEGINING OF MSG 
64$ sTRY AGAIN 
+0 
os ; UNEXPECTED RESPONSE 
q 
#11, ERCOUNT :;SET UP ERROR COUNT 11 
#5, STAER sREPORT ERROR SET 


Print incomplete “VERIFIED” message from “Power-up” diagnostic 


EMT 
BUFF 


+0 
s;Stored message 


ee 


! 


ee ne eee we 


CZLCPA COLOR PRINTER DIAGNOSTIC MACRO 
; TEST 2 COLOR PRINTER ‘SELF’ TEST 


1238 003400 012737 000005 001062 
1239 


1240 
1241 
1242 


003406 


003466 
003474 


003476 
003500 


003502 
003502 
003510 


003514 
003514 
003522 
003524 
003532 
003534 
003542 
003544 
003550 


003550 
003554 


012737 


100372 
000443 


022737 
001404 
032777 
001003 
032737 


001002 


104000 
005731 


012737 
004537 


022737 
001404 
032777 
001003 
032737 
001402 
000137 


000137 


117737 


005337 
001301 


000100 
177777 
001124 
001126 


175434 


000176 
020000 
020000 


000012 
004606 


000176 
100000 
100000 
003052 


003604 


175320 


001124 
001126 


001004 
175326 
000176 


001136 


001004 
175260 
000176 


004464 
004464 


id 
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WERE: 


ERR1e2: 


CNi2: 


WEX6: 


69$: 
79$: 


MOV #5 ,LINCNT 





—S— ee oe... eee _ ae Rar te = _——_— 


SEQ 0034 


sLoad line count 


all subsequent info sent by printer = error info 


$WAITI \W,79$,TEST2 


MOV #100, WORK 

MOV #-1,WORKA 

DEC WORK 

BEQ WERE 

DEC WORKA 

BEQ WDD6 

TSTB @DLLPS 

BPL WDOE6 

BR WEX6 

$TSWRG #2 

CMP #176,SWR 

BEQ -+12 

BIT #20000 , BHWSWR 
BNE .+10 

BIT #20000 , SWREG 
BNE -*6 

EMT +0 

ETIM 

$ERROR \N,TEST2 

MOV #12, ERCOUNT 
JSR #5,STAER 
$TSWRG #100000 

CMP #176,SWR 

BEQ +12 

a #100000, @HWSWR 
BIT pi00000, sunec 
BEQ CNi2 

JMP TEST2 

JMP 79$ 

a gan ol TYPDAT 
CMP ey TYPOAT 
BNE 67$ 

DEC LINCNT 

BNE 67$ 

$TSWRG #2 


;WAIT FOR INPUT, OR TIMEOUT 


;LOAD CNTR 
sLOAD COUNT 
sBUMP CNTR 
sERROR IF TIMEOUT 
sBUMP COUNT 
sLOOP IF COUNT 0 
sCK STATUS 
sLOOP TIL DONE 
s CONTINUE 


;CK SW REG 
sHW SWITCH REG THERE? 
;NO, SKP HW CHECK 
YES, CK HW REG 
F SET, SKP SW REG CK 
S OTHERWISE, ALSO CK SW REG 
s TEST FOR INHIBIT ERROR MSG 
;BRANCH IF NO MSG WANTED 


;TIMED OUT ERROR 
sSET UP ERROR COUNT 12 
sREPORT ERROR SET 

:CK SW REG 


sHW SWITCH REG THERE? 
sNO, SKP HW CHECK 


SE, ALSO CK SW REG 
sCONTINUE IF BIT 15 = 0 
;OTHERWISE LOOP 


;EXIT 


‘ewer from printer 
yes 
i. Vie 


;Bump line count 
sLoop if not done 


:CK SW REG 


a 
e- 


A 


eee mee wee ee eee ee 
EE oe ee See essences ete a nean, 


sauers COLOR PRINTER an tear MACRO M1113 12-MAR-85 15:38 


EST 2 COLOR PRINTER ‘SELF’ SEQ 0035 


003604 022737 000176 001004 CMP #176,SWR sHW SWITCH REG THERE? 
003612 001404 BEQ +12 sNO, SKP HW CHECK 
003614 032777 000002 175170 BIT #2, IHWSWR :YES, CK HW REG 
003622 001003 BNE .+#10 ; IF SET, SKP SW REG CK 
003624 032737 000002 000176 BIT #2, SWREG s; OTHERWISE, ALSO CK SW REG 
1255 003632 001402 BEQ TESTS sCONTINUE IF = 0 
oe 003634 000137 003052 JMP TEST2 ;IF SET, LOOP ON TEST 
1 
1258 


ee eee ee — 


ee wee we ee _ 
a 


—— 


_CZLCPA COLOR PRINTER DIAGNO 
TEST 3 PRINTER DISPLAY TES 


| 


LLL Sees eet 


003640 
003644 


003646 
003646 
003654 
003656 
003664 
003666 
003674 
003676 


003702 
003702 
003710 
003712 
003720 
003722 
003730 
003732 
003732 
003734 


003764 
0037€6 


003770 


003770 
003770 
003776 


004002 
004010 


005737 
001416 


022737 


001002 


000137 


022737 


032737 
001002 


104000 
005673 


012737 


012737 
004437 


012737 
012737 


001064 


000176 
000004 
000004 
004070 


000176 
040000 
040000 


000004 
177777 
001124 


001126 


005533 
004250 


000400 
177777 


001004 
175126 
000176 


001004 
175072 
000176 


001124 
001126 


004312 


001124 
001126 


-SBTTL TEST 3 
latte LLL TT rere 


° 
; 
: 
; 
é 
; 
TEST3: 


82s: 


Ks 


- bes MACRO M1113 12-MAR-85 15:38 


Test 3 Display Test 


-A Send "Escape 
to initiate P 


TST 
BEQ 


CYCCNT 
82$ 


j 
; DELAY FOR A SEC 


3 
83%: 
845: 


86$: 


; 
93$: 
94$: 


MOV 
MOV 
DEC 
BEQ 
DEC 
BEQ 
BR 


$PRINT 
MOV 
JSR 


MOV 
MOV 





LCP4 


#LCP4 ,PRTMSG 
#4 ,PRINE 


; DELAY FOR A COUPLE OF MINUTES 


#400 , WORK 
#-j »WORKA 





SEQ 0036 


PRINTER DISPLAY TEST 


Sequence” to color printer 
attern display 


;CK PASS COUNT 
sIF 1ST PASS, EXECUTE TEST ALWAYS 


sONLY IF LOOP ON TST BIT, CONTINUE 
sHW SWITCH REG THERE? 

;NO, SKP HW CHECK 

;YES, CK HW REG 

;IF SET, SKP SW REG CK 

sOTHERWISE, ALSO CK SW REG 

sSET, CONTINUE TEST 

sOTHERWISE, EXIT>>>>>>> >>> 


:;CK SW REG 

sHW SWITCH REG THERE? 

:NO, SKP HW CHECK 

;YES, CK HW REG 

sIF SET, SKP SW REG CK 
sOTHERWISE, ALSO CK SW REG 
sIF SET, SKIP TST @ HDR MSG 


sPRINT TEST NUMBER 
sTEST NUMBER MESSAGE 


:2 SEC CNTR 
sLOAD COUNT 
sBUMP CNTR 

; TIMEOUT 

;BUMP COUNT A 
;LOOP IF COUNT 0 
sLOOP TIL DONE 


SEND “ESCAPE” SEQUENCE TO THE PRINTER 


sINVOKE DISPLAY TEST 
sLOAD MESSAGE ADDRESS 
sPRINT IT 


;TWO MIN CNTR 
;LOAD COUNT 


er ee 


. . -—— — mr a eS ea at. aac 


' 
! 
t 


i 
! 


1303 004016 


1307 004032 
1308 
1309 


1310 004034 
004034 


54 
1311 004062 
1312 004064 
1313 
1314 
1315 


CZLCPA COLOR PRINTER DIAGNO 
TEST 3 PRINTER DISPLAY TEST 


005337 
001404 
005337 
001767 
000774 


022737 


001124 
001126 


000176 
000004 
000004 
003640 


001004 
174740 
000176 





STIC MACRO M1113 12-MAR-85 15:38 


DEC WORK 

BEQ 99% 

DEC WORKA 
BEQ 94$ 

BR 96$ 
STSWRG 04 

CMP #176,SWR 
BEQ -¢l2 

BIT #4, IHWSWR 
BNE -*10 

BIT #4, SWREG 
BEQ TSEND 
JMP TESTS 
.-OSABL LSB 





LS 


Cie — ~<a ee -- 


sLOOP IF COUNT 0 
;LOOP TIL DONE 


:CK SW REG 


sHW SWITCH REG THERE? 
HW CHECK 


NO, SKP HW 
;YES, CK HW REG 


sIF SET, SKP SW REG CK 
; OTHERWISE , ALSO CK SW REG 


;CONTINUE IF = 0 


sIF SET, LOOP ON TEST 


SEQ 0037 


-- a SL iS: se semen en ee ee ee 


—_—_———— ee eee - — —— _ 








M3 


eee - ome 


—< 


ee a eee eee eee TT a 


CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR-85 15:38 SEQ 0038 
1317 .SBTTL 
1318 .SBTTL END OF TEST SEQUENCE 
1319 OOOO LOSES SOAS EEEEEL HSSEESESESESEEESEOEEESESEEHEHESESESESECSeEEEEeSeCeCeseeoces 
1320 ; 
1321 ; END OF TEST SEQUENCE, WAIT FOR KEY INPUT. 
1 
1323 004070 005237 001064 TSEND: INC CYCCNT ;BUMP PASS COUNT 
1324 004074 $TSWRG 40000 :CK SW REG 
004074 022737 000176 001004 CMP 0176, SWR sHW SWITCH REG THERE? 
004102 001404 BEQ *12 :NO, SKP HW CHECK 
004104 032777 040000 174700 BIT 940000, aHWSWR YES, CK HW REG 
004112 001003 BNE +10 sIF SET, SKP SW REG CK 
004114 032737 040000 000176 BIT @40000,SWREG § ; OTHERWISE, ALSO CK SW REG 
1325 004122 001045 BNE TSRST ;D0N'T PRINT IF = SET 
1326 004124 004537 004466 JSR #5, CONV ;CONVERT PASS © 
1327 004130 001064 CYCCNT 
1328 004132 006475 MESO 
1329 004134 4 
1330 004136 104000 EMT 20 sPRINT IT 
1331 004140 006457 MESS 
1332 004142 $TSWRG 01 sCK SW REG 
004142 022737 000176 001004 CMP 0176, SWR {HW SWITCH REG THERE? 
004150 001404 BEQ 012 sNO, SKP HW CHECK 
004152 032777 010000 174632 BIT #10000,@HWSWR ;YES, CK HW REG 
004160 001003 BNE 910 sIF SET, SKP SW REG CK 
004162 032737 010000 000176 BIT @10000,SWREG #§ ;OTHERWISE, ALSO CK SW REG 
1333 004170 001002 BNE TSEAB sPAUSE IF = SET 
1336 004172 000137 001464 JMP TEST} sLOOP TO BEGINING OF TEST 
1 
1336 004176 104000 TSEAB: EMT +0 
1337 004200 16 MES7 sANY KEY TO RESTART 
1338 004202 105777 174614 TSEDA: STB a@TKS sKEY INPUT? 
1339 004206 100375 BPL TSEDA ;IF NOT LOOP 
1340 004210 117700 174602 MOVB aTKB,RO :GET INPUT CHAR 
1341 004214 142700 000140 BICB 140,R0 :CLR UPPER 2 BITS 
1342 004220 122700 000004 CHPB 80s #4, RO sCTRL DO, $, D. ORG 
1343 004224 001004 BNE TSRST :IF NOT 
1344 004226 004737 014066 JSR 87, CLRTTY sCLR PENDING CHARACTERS 
1345 
1346 004232 000137 001306 TSRSS: JMP SETUP 
1347 
1348 004236 000137 001464 TSRST: UMP TEST! 
1349 


——— SS Se 


Se ~< 


Ts ee es LTC a me ee eee 
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MISC. SUBROUTINES 


1351 
1352 


006570 004312 


014122 


012737 


000013 001136 


004606 


001000 
001002 


012737 
004537 


013737 
013737 


001020 
001014 


001020 
001014 


177564 
177566 


004464 


004464 
004464 
004400 


004464 
001020 


174376 


174406 


001120 


174366 


004464 
004464 








NS 


SEQ 0039 


-SBTTL MISC. SUBROUTINES 
i SOSSSOSSEE SHEE ROSES EEEEEESEEESEESEEEEREEHEREEEEHESEEESESESESEESESESSSSESeeese 


i 
+ MISC. ROUTINES 


LESSEE SS AAAS ESREREREEEHERENEEEEESESHELERENENEEEE SESE ESEEESESEEESEESESESeeees 


; 
: ROUTINE TO OUTPUT ASCII MESSAGES ON THE LINE PRINTER 


PRNNT: 


PRINE : 


ERR13: 


RINT: 


PRTMSG: 
TYPINT: 


@MES14,PRTMSG ;PRINT TEST NUMBER 
#7 ,ERCHK s;TEST FOR ERROR 
: sBRANCH IF OK 
a 
. sSTATUS ERROR 
\ 
#13, ERCOUNT sSET UP ERROR COUNT 13 
#5,STAER sREPORT ERROR SET 


LPS,TPS ;SET VECTORS - 
— TPB ;TO en a PRINTER 
3 


sMESSAGE 
#177564,TPS ;RESET VECTORS 
ee sFOR TTY 

RETURN. 


jneenseestsnsonsennsenssenssnssesosrecnsenssenssnsensensenssessesssesonses 


HINTERRUPT CALLED ROUTINE TO OUTPUT ASCII MESSAGES ON TELETYPE PRINTER 


TYPO: 


EMT +0 
POINTER TO MESSAGE 


ee 


a6 ,80 sGET ADDR. THAT CONTAINS MESS. 
G2, O86 sSET UP EXIT 
as0 , #0 sADDRESS OF MESSAGE IN RO 
€O0)+, TYPDAT ;GET CHARACTER 

TYPC sBRANCH IF NOT DONE 

sEXIT 

045, TYPDAT ;CHECK FOR "ss" 

T YPF sBRANCH IF “ss” 

043 , TYPDAT :sCHECK FOR "9" 

TYPG sBRANCH IF "9" 
#&7,TYPD sTYPE CHARACTER IN TYPDAT 

> f sNEXT CHAR IN MESSAGE 

TYPDAT , aTPB sOUTPUT CHARACTER TO PRINTER 
TPS,.OZCSRH sARE WE REALLY TALKING TO A DZ 
Y ;BR, IF NOT OZ 
aTPs ;sIF OZ BIT 1S IS READY BIT NOT BIT 7 
.-4 sWAIT UNTIL DONE IS SET 

TYPDO1 sSKIP OTHER “TSTB” 
= 
67 ;CHAR, — EXIT 

#12, TYPDAT sOUTPUT 
#87, TYPD :G0 TYPE” aan 

615, TYPDAT ;OUTPUT CR 
#7,TYPD :GO TYPE CHAR. 


~ ce TT cee 


ISC. SUBROUTI 


1406 004462 
1407 004464 


CZLCPA COLOR PRINTER 
M NES 


000727 
000000 


010137 
010237 
010337 


013537 


013702 
013703 


000205 


000000 
000000 
000000 
000000 


010537 


022737 
001404 
032777 


004600 
004602 
004604 


004576 


004576 
177770 
000060 
004576 
004576 
004576 
004600 


004602 
004604 


004752 
004466 


000176 001004 
020000 174150 
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BR TYPA 
TYPDAT: O 


3 *SASRSSRSEASSEGEESSSAS SES EEEHESRE SESE SERERE SHORES EEEREREEEEEEEEEEEEEESEEOEEES 


3 
sROUTINE TO CONVERT OCTAL TO ASCII 


; 
sENTER ROUTINE AS FOLLOWS 
#5 ,CONV 


; JSR 
;XXXXXX=ADDRESS OF NUMBER TO BE CONVERTED 


sXXXXXX=ADDRESS OF ASCII MESSAGE 


sXXXXXX=NUMBER OF OCTAL NO.'S TO BE CONVERTED 


; 

CONV: MOV R1,CONR1 
MOV Re, CONR2 
MOV R3,CONR3 


MOV @(5)+, ACNVX 
x6 1 


MOV (S)-, 

MOV (S)+,#2 

ADD s2,%1 
ACVN: MOV ACNVX , #3 

BIC $177770,83 

ADD 0,83 

MOVB #3,-(€1) 

CLC 

ROR ACNVX 

CLC 

ROR ACNVX 

CLC 

ROR ACNVX 

DEC #2 

BNE ACVN 


MOV ss CONR3.,R3 


RTS 65 
ACNVX: 0O 
CONR1: O 
CONR2: O 
CONR3: O 


sSAVE REG 
sSAVE REG 
sSAVE REG 


sADDRSS OF NO. TO BE CONVERTED 
sADDRESS OF MESSAGE 

sNUMBER OF ASCII CHARACTERS 
sFIRST CHAR ADDRESS 

sSTORE NUMBER 

sISOLATE LEAST SIGNIFICANT BIT 
sSET UP ASCII CHARACTER 

sSTORE CHARACTER 

sGET NEXT SIGNIFICANT BIT ... 


3-1 FROM ASCII CHAR. CNT 
sCONVERT NEXT CHARACTER 
sRESTORE REG 
sRESTORE REG 
sRESTORE REG 


sEXIT! CONVERSION DONE 
sWORK REGISTER 


3 SSSESSEESOSSRESESSSSERE SESS OEEERES SERRE TERRE SEREREEEEEeECERERESEEEEseEEEeeees 


; 
sROUTINE TO REPORT ERROR COUNT 


: 
STAER: MOV #5 ,STARN 
JSR s5, CONV 
ERCOUNT 
- 
$TSWRG #20000 
CMP #176,SWR 
BEQ .*12 


sSAVE RS 
sCONVERT OCTAL TO ASCII 


;CK SW REG 

sHW SWITCH REG THERE? 
sNO, SKP HW CHECK 
;YES, CK HW REG 





ee eee ee 


wwe eee eee | eee | tlle ee ee CO ee eee —— mm 
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CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR-85 15:38 SEQ 0041 | 
‘MISC. SUBROUTINES : 
904642 001003 BNE .+10 ;IF SET, SKP SW REG CK 
004644 032737 020000 000176 BIT #20000 , SWREG ;OTHERWISE, ALSO CK SW REG 
1460 ;TEST FOR INHIBIT ERROR MSG 
1461 004652 001002 BNE . +6 ;BRANCH IF SET 
1462 004654 104000 EMT 20 ;TYPE ERROR MESSAGE 
1463 004656 006063 HED1 
1464 
| 1465 004660 $TSWRG #10000 :;CK SW REG 
004660 022737 000176 001004 CMP #176,SWR sHW SWITCH REG THERE? 
004666 001404 BEQ -+l2 ;NO, SKP HW CHECK 
004670 032777 010000 174114 BIT #10000 , BHWSWR ;YES, CK HW REG 
004676 001003 BNE .+10 sIF SET, SKP SW REG CK 
004700 032737 010000 000176 BIT #10000 , SWREG sOTHERWISE, ALSO CK Sw REG 
1466 ;TEST FOR HALT ON ERROR 
1467 004706 001416 BEQ STEXT ;BRANCH IF NO HALT WANTED 
1468 ; HALT sHALT ON ERROR 
1469 004710 104000 EMT +0 sPRINT IT 
aaa 004712 006504 MES10 
1471 
1472 004714 105777 174102 STEDA: TSTB aTKs sKEY INPUT? 
1473 004720 100375 BPL STEDA ;IF NOT LOOP 
1474 004722 117705 174070 MOVB aTKB,RS sGET INPUT CHAR 
1475 004726 142705 000140 BICB #140,R5 ;CLR UPPER 2 BITS 
1476 004732 122705 000004 CMPB 04 ,R5 sCTRL D, $, DOD, ORG 
1477 004736 001002 BNE STEXT ;1IF T 
1478 004740 004737 014066 JSR 87, CLRITY ;CLR PENDING CHARACTERS 
1479 
1480 004744 013705 004752 STEXT MOV STARN, #5 sRESTORE RS 
1481 004750 000205 RTS 5 sRETURN 
1482 -EVEN 
1483 004752 000000 STARN: .WORD QO sRETURN STORAGE 


—— eee eee 


' 
rrr eee ee ee ee ee 
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'CZLCPA COLOR PRINTER DERGNOSTIC MACRO M1113 12-MAR-85 15:38 SEQ 0042 
KEYBOARD INTERRUPT ROUTINE 
1485 -SBTTL KEYBOARD INTERRUPT ROUTINE 
1486 j RERESSEEELS ERE ESSER ESSERE SHEERS SET EEN EERE ERS EEENEEEERESOREEESESEREREEEERESS 
1487 
1488 sKEYBOARD INTERRUPT ROUTINE 
pees ;FOR ACCESS TO THE S/W SWITCH REGISTER 
14 ; 
1491 
1492 004754 010046 TKINT: MOV #0,-(SP) ;SAVE REGISTERS 
1493 004756 010146 MOV #1,-(SP) ; 
1494 004760 010246 MOV #2,-(CSP) ; 
1495 004762 010346 MOV #3,-(CSP) ; 
1496 004764 010446 MOV #4,-(SP) ; 
oan 004766 010546 MOV #5,-CSP) i 
14 
1499 33:988 TST SIGNAL 2 tha CONTROL-G INPUT ? 
1500 | 33:;9888 BEQ CNTRLG :f'0- 
1501 004770 017737 174022 001160 MOV 8TKB,CHAR ;GET INPUT CHARACTER 
1502 004776 042737 177600 001160 BIC #177600, CHAR ;STRIP OFF PARITY BIT 
1503 005004 022737 000007 001160 CMP #7,CHAR _ sCONTROL-G INPUT? 
1504 005012 001527 BEQ TYPSWR sYES-PRINT HEADER 
1505 005014 022737 000015 001160 CMP #15 ,CHAR sCARRIAGE RETURN ? 
1506 005022 001466 BEQ OGTS | ;YES-TERMINATE SWR CHANGE 
1507 005024 022737 000025 001160 CMP #25, CHAR sCONTROL-U INPUT ? 
1508 005032 001557 BEQ TK4 ;YES-CLEAR PREVIOUS ENTRY 
1509 005034 022737 000010 001160 CMP #10,CHAR sCONTROL-H INPUT ? 
oars 005042 001576 BEQ TKHLP ;YES-PRINT HELP 
1511 
1512 005044 022737 000003 001160 CMP #3,CHAR sCONTROL-C INPUT ? 
cans 005052 001564 BEQ TKS ;s YES- ABORT 
1514 
1515 005054 023727 001160 000060 CMP CHAR , #60 sILLEGAL # CHECK: LESS THAN 60 ? 
1516 CO05062 100001 BPL TK1i sNO-CONTINUE 
1517 005064 000466 BR WT3 :YES-PRINT “2?” 
1518 005066 022737 000067 001160 TK1: CMP #67, CHAR sILLEGAL # CHECK: GREATER THAN 67 ? 
1519 005074 100001 BPL TK2 3; NO-CONTINUE 
1520 005076 000461 BR WT3 :YES-PRINT "2?" 
1521 005100 005237 001152 TKe: INC DIGITS sNEXT DIGIT OF SWR INPUT 
1522 005104 022737 000006 001152 CMP #6 ,DIGITS sMORE THAN SIX DIGITS ? 
1523 005112 100453 BMI WTS sYES-PRINT “2?” 
1524 005114 105777 173700 WT2: TSTB aTPs ;TTY PRINTER READY ? 
1525 005120 100375 BPL WT2 s NO-WAIT 
1526 005122 013777 001160 173664 MOV CHAR ,@TPB ;PRINT CHARACTER 
1527 005130 162737 000060 001160 SUB #60, CHAR sCONVERT TO OCTAL 
1528 005136 022737 000001 001152 CMP #1,D0IGITS sFIRST DIGIT ? 
1529 005144 001411 BEQ TKS ; YES-CONTI TNUE. 
1530 005146 000241 CLC sROTATE LEFT THREE 
1531 005150 006137 001162 ROL OCT ; TIMES 
1532 005154 000241 CLC ;THIS WILL SHIFT 
1533 005156 006137 001162 ROL OCT sSWR VALUE ONE 
1534 005162 000241 CLC sPLACE LEFT 
1535 005164 006137 001162 ROL OCT :OCTAL. 
1536 005170 063737 001160 001162 TKS: ADD CHAR , OCT SNEW VALUE OF SWR 
1537 005176 000503 BR TK6 sRETURN FROM INTERRUPT 
1538 005200 005737 001152 DGTS: TST DIGITS ;SWR VALUE CHANGED ? 
1539 005204 001470 BEQ TKS sNO-RETURN ,NO CHANGE TO SWR 
1540 005206 013737 001162 000176 MOV OCT, SWREG ;YES-ENTER NEW SWR VALUE 
1541 005214 000464 BR TK3 sRETURN FROM INTERRUPT 
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'CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR-85 15:38 
| KEYBOARD INTERRUPT ROUTINE 
1542 005216 017737 173574 001160 CNTRLG: MOV ATKB, CHAR :;GET CHARACTER 
1543 005224 042737 177600 001160 BIC #177600, CHAR ;STRIP OFF PARITY BIT 
1544 005232 022737 000007 001160 CMP #7, CHAR ;CONTROL-G INPUT ? 
1545 005240 001414 BEQ TYPSWR ;YES-PRINT HEADER 
1546 005242 105777 173552 WT3: TSTB aTPsS ;TTY PRINTER READY ? 
1547 005246 100375 BPL WT3 ;NO-WAIT 
1548 005250 013777 001160 173536 MOV CHAR, @TPB ;PRINT CHARACTER 
1549 005256 104000 EMT +0 sPRINT “?" 
1550 005260 006614 MES22 
1551 005262 005737 001154 TST SIGNAL ;BAD VALUE ? 
1552 005266 001001 BNE TYPSWR ;YES-PRINT HEADER 
1553 005270 000442 BR TK7 sRETURN FROM INTERRUPT 
1554 005272 012737 000001 001154 TYPSWR: MOV #1,SIGNAL ;SET FLAG: CONTROL-G ENTERED 
1555 005300 104000 EMT +0 
1556 005302 006612 MES21 :CR 
1557 005304 022737 000176 001004 CMP #176,SWR sH/W SW REG THERE? 
1558 005312 001411 BEQ TYPSWX 3NO, SKIP H/W REG DUMP 
1559 005314 104000 EMT + 
1560 005316 006656 MES26 ;H/W SW REG HDR 
1561 005320 004537 004466 JSR #5 ,CONV 
1562 005324 177570 177570 
1563 005326 006672 MES27 
1564 005330 000006 6 
1565 005332 104000 EMT +0 
1566 005324 006672 MES27 
1567 005336 104000 TYPSWX: EMT +0 ;PRINT HEADER 
1568 005340 006620 MES23 
1569 005342 004537 004466 JSR #5 ,CONV sCONVERT SWR VALUE TO ASCII 
1570 005346 000176 176 
1571 005350 006647 MES25 
1572 005352 000006 
1573 005354 104000 T +0 ;PRINT SWR VALUE 
1574 005356 006647 MES25 
1575 005360 104000 +0 ;PRINT HEADER 
1576 005362 006630 MES24 
1577 005364 000404 BR TK7 sRETURN FROM INTERRUPT 
1578 005366 005037 001154 TK3: CLR SIGNAL ;CLEAR CONTROL-G FLAG 
1579 005372 104000 TK4: EMT +0 ; PRINT LINE FEED AND CARRIAGE RETURN 
1580 005374 006612 MES21 
1581 005376 005037 001152 TK7: CLR DIGITS sCLEAR DIGIT COUNT 
1582 005402 005037 001162 CLR T :;CLEAR SWR INPUT 
1583 005406 012605 TK6: MOV CSP)+,s5 sRESTORE REGISTERS 
1584 005410 012604 MOV (SP )+,#4 3 
1585 005412 012603 MOV CSP )+,#3 5 
1586 005414 012602 MOV (SP)+,s2 3 
1587 005416 012601 MOY CSP )-, 1 3 
1588 005420 012600 MOV (SP)+,80 ; 
oaar 005422 000002 RTI ; RETURN FROM INTERRUPT 
1590 
1591 005424 012746 000340 TKS: MOV #340,-(SP) ; ABORT AND GO TO 200, RESTART 
1592 005430 012746 005440 MOV #.+10,-CSP) 
sane 005434 000137 001306 JMP SETUP 
oes ; Help - reached by <ctrl>H 
; 
1597 005440 104000 TKHLP: EMT +0 
1598 005442 007350 HLPO 


CZLCPA COLOR PRINTER DIA 
KEYBOARD INTERRUPT ROUTI 


1599 005444 


1600 


005446 


005506 
005510 


ee i Ree 


010163 
000726 
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+O 
+0 


TKS 


= —_- _-——-- 


SEQ 0044 


; 
: 
— ee 
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'CZLCPA COLOR PRINTER 


| LOCAL MESSAGE 


— all * _—-  —_ 
o . 


005673 


005731 
006007 


006416 
006457 
006475 
006504 


-— — - — = ————- eee S 


-SBTTL LOC 
-NLIST BE 
EVEN 
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DIAGNOSTIC MACRO M1113 12-MAR-85 15:38 


‘ MESSAGES 


} SEREEREREREREE RAR ERER ERE REER ERASER ERERERRARED ENE H ERE REKEREEEEREEEEEE EERE ESSERE 
; DEVICE "ESCAPE SEQUENCES” 
AND OPERATOR MESSAGES. 


DARi ASCIZ 
DAR2 ASCIZ 
LCP3 ASCIZ 
LCP4 ASCIZ 
LCPS ASCIZ 
DAR6 ASCIZ 
LCP7 ASCIZ 
DARO ASCIZ 
TYO1L ASCIZ 
TYO02 ASCIZ 
TYO3 ASCIZ 
ETIM ASCIZ 
ETIMO ASCIZ 
HED1: ASCII 
HED2: ASCIZ 
MESDD ASCIZ 
MES1: ASCIZ 
MES2 ASCIZ 
MES3 ASCIZ 
MES4 ASCIZ 
MESS ASCIZ 
MES6 ASCIZ 
.EVE 

MES7 .ASCIZ 
MESS: ASCII 
MESS: .ASCIZ 
MES10: .ASCIZ 

.EVEN 

MES14: .ASCIZ 
MES20A: .ASCIZ 
-EVEN 

MES21 ASCIZ 
MES22: ASCIZ 
MES23 ASCIZ 
MES24 ASCIZ 
MES25 ASCIZ 
MES26: ASCIZ 
MES27 ASCIZ 

VEN 

ERMS1 ASCIZ 
ERMS2 ASCIZ 
ERMS3 ASCIZ 
ERMS4 ASCIZ 
ERMSS: .ASCIZ 
ERMS6: .ASCIZ 





<33>\[c\ :What are you? 

<33>\[Oc\ ;What are you? 

<33>\077;0c\ ;<answer> I am a LCPO (Color printer). 
<33>\(6;2y\ :Display pattern 

<33>\(6;1ly\ sRun Confidence test on clr ptr. 
<33>\([5Sn\ sReport your status. 

p> aaa ;<answer> I’m OK (Color Printer). 

<21> 


3; XON 
\STEST 1, SERIAL LINE UNIT TEST\ 
\STEST 2, COLOR PRINTER ‘SELF’ TEST\ 
\STEST 3, PRINTER DISPLAY TEST\ 


\SERROR - TIMEOUT, WAITING FOR INPUT, RESPONSE\ 
\SERROR - TIMEOUT, WAITING FOR OUTPUT, DONE $\ 
/% - ERROR NUMBER / 

/ s/ 

/SSTARTING EVFU PRINTING TESTSs/ 
\s8CZLCP-A-O\ 

\SCZLCPO COLOR PRINTER DIAGNOSTIC\ 

\SUNIT IS TEXs\ 

\SRESTART ADDRESS 2008\ 

\sNow aeeire the Color Printer Diagnosticss\ 
\sColor Printer Diagnostic Completedss\ 


\sPress = Key to Restart test. .\ 
\SEND OF PASS: \ 


\ s\ 
\SPAUSE CHALT) ON ERROR, Press Any Key to Continue. .\ 


eel Aer Ntest NUMBER \ 
/ 


/%/ 
/ ?8/ 
/SWR = / 
7 WNEW SWR = / 
/ 
\CH/W SWR = \ 
\SERROR - SERIAL LINE NOT AT THIS ADDRESS#\ 
\SERROR - SERIAL LINE “LOOPBACK” FAILEDs\ 
\SERROR - UNEXPECTED RESPONSE, TO “WHAT ARE YOU?" REQUEST#\ 
\SERROR - UNEXPECTED RESPONSE, TO “POWER-UP" (SELF) TEST#\ 
\SERROR - UNEXPECTED RESPONSE, TO “POWER-UP" STATUS REQUEST#\ 
\SOUTPUT, SERIAL LINE STATUS ERRORS\ 


Sn a 





—— oe ee eee ee SL LTT — ——_ —— — - 


SEQ 0045 


ee 
a ee 


ere a ee me ee ee 
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H4 
CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR-85 15:38 SEQ 0046 
LOCAL MESSAGES 
1677 
1678 007350 045 045 040 hlpo: -esciz \ss HELP, Switch Register Bit definition\ 
1679 007420 045 040 040 hlpl: -asciz \8 (Note: <CTRL>G - Allows change to “Software” Switch Reg)\ 
1680 007514 045 061 065 hlp2: -asciz \#15)14,13,12...2,1,0\ 
1681 007541 045 040 174 hlp3: -asciz \®# >} )} } } } } }_Loop on SLU Test 1\ 
1682 007611 045 040 174 hlp4: -esciz \S >) } }) 3) } J_Loop on Printer “Self” Test 2\ 
1683 007672 045 040 174 hlp4a: .asciz \* } } } } }_Loop on Printer Display Test 3\ 
1684 007752 045 040 174 hlps: -asciz \% } )} } )_Pause on Error, and Pause at End of Pass\ 
1685 010040 045 040 174 h1lpé: -asciz \% }) ) )_Inhibit Error Reports\ 
1686 010100 045 040 174 hlp?7: -asciz \S% } )_Inhibit Test Number end End of Pass Reports\ 
1687 010163 045 040 174 hlps: -asciz \# }_Loop On Error (otherwise cont inue )s\ 


* 
: “*  — re eee ee ee _>_ "—-—<———_ 
~~ —-- SS sess sleet atseermneeneee LS a 


= Oe ee eee 
Se 


010234 
010234 
010240 
010244 
010250 
010254 
010260 


010260 


010266 
010274 
010276 
010300 
010302 
010304 
010306 
010310 
010312 


010416 
010422 
010426 
010430 
010436 
010442 
010446 


_- — 


005037 
005037 
005037 
005037 
005037 


042777 


012737 
104000 


—_—— a cc er. a a ay 


'CZLCPA COLOR PRINTER DIAGNOSTIC MA 
| SERIAL LINE SETUP ROUTINES 


000100 
000010 


170502 


170470 
170466 


170454 
177700 
000061 
000062 


013642 
123456 


011340 
000012 


000015 
010260 


013642 
123456 


000001 
001102 
014066 
000004 


170534 
001122 


001106 


001122 
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CRO M1113 12-MAR-85 15:38 


-SBTTL SERIAL LINE SETUP ROUTINES 
EVEN 


| eel 





5 SREEREEEEEREA EAGER EERE EEASEREEEER EE EE TEENA REE NEREEE ERS EREREEEEEEERESEEEEEEOEEs 
; THIS SUBROUTINE SETS UP THE SERIAL LINE INTERFACE IF THERE IS ONE 


: 
3 TE NR EEEMEEEEEEEEEEREREEEUETEERERERENEEEERER EERE RE REREREREEEEEHEEEE OE ES 


SETSER: 
CLR DZCSRH 
CLR DZTCR 
CLR DZLPR 
CLR DLHERE 
CLR BRATE 
20$: ; CMP SERSW, #1 
; BNE 30$ 
JMP 200$ 
30$ BIC #100,8TKS 
MOV 41 ,SERSW 
MOV #10,MAINTB 
EMT +0 
MENU1 
EMT +0 
MENU2 
EMT +0 
MENUS 
EMT +0 
MENU4 
40$: TSTB aTKsS 
BPL 40$ 
MOVB aTKB , #0 
42$: TSTB aTPs 
BPL 42$ 
MOVE aT 
BIC 9177700, #0 
MPB » 961 
BEQ 47$ 
CMPB #0, 962 
BNE 45$ 
JSR #%7,GETCR 
CMP 80, 123456 
BEQ 
JMP $ 
BEQ 9$ 
CMPB #15,s0 
BEQ ag$ 
JMP 30$ 
’ 
; IT’S A DLil 
3 
47$: JSR *%7,GETCR 
CMP #0, #123456 
BEQ 30% 
49$: MOV #1,OLHERE 
CLR BRATE 


JSR #7,CLRTITY 
MOV #4 ,MAINTB 


;BR, NOT SET 

sLEAVE ROUTINE ALREADY SET UP 
s;SHUT OFF IE IN TTY 

sSET SW TO BEEN SET UP 
sPRELOAD BIT 3 SET 

sPRINT MESSAGE CALL 


sPRINT MESSAGE CALL 
sPRINT MESSAGE CALL 
sPRINT MESSAGE CALL 


sREAD TTY‘'S STATUS 
;BR, IF NOT DONE 


sLOOP IF TTY IS BUSY (BR) 
sECHO CHARACTER TO TTY 
sONLY 6 BITS ALLOWED 

sWAS IT AN ASCII 1 

sBR, IF IT WAS (DL11 SEL.) 
sWAS IT AN ASCII 2 


;GO GET LF OR CR 

;CHECK FOR BAD INPUT 

sTRY AGAIN BAD INPUT (NOT CR) 
sBR, IF IT WAS (DZ11 SEL.) 
;CHK FOR <LF> DEFAULT 

3BR, IF DEFAULT CDL11 SEL.) 
sCHK FOR <CR> DEFAULT 

:BR, IF DEFAULT (DL1i1 SEL.) 
;WASN'T CORRECT TYPE-IN 


:GO GET LF OR CR 

;CHECK FOR BAD INPUT 

;TRY AGAIN BAD INPUT (NOT CR) 
;SHOW DEC PRESENCE 

;JUST TO BE SURE 

sPICK UP PENDING CHARACTERS 
;PRELOAD BIT @ 2 


SEQ 0047 


. hei ee ee 


/CZLCPA COLOR PRINTER DIA 
| SERIAL LINE SETUP ROUTI 


1746 
1747 
1748 
1749 


010722 
010730 


= — a  —— — 


NES 


170322 


170310 
170306 


170274 
177700 
000061 
000062 


013642 
123456 


001122 
010614 
000012 
000015 
010430 


013642 
123456 


000001 


001102 
014066 


170160 


170146 
170144 


170132 
177700 
000012 
000015 
000061 
000067 
001124 
100000 


013560 


eee 


001106 


001124 


51$: 


52s: 


53$: 


57$: 
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GNOSTIC MACRO M1113 12-MAR-85 15:38 


+0 
+0 


#7 ,GETCR 
40, 9123456 
493 


#1 ,OLHERE 
BRATE 

#7, CLRTTY 
20 


#100000, WORK 


%7,GETOCT 


8 EEE ee etm aem ae an _—— <_ Se ce ee ae 


SEQ@ 0048 


sPRINT MESSAGE CALL 
sPRINT MESSAGE CALL 
sPRINT MESSAGE CALL 
sPRINT MESSAGE CALL 


sREAD TTY’S STATUS 
4 IF NOT DONE 


sLOOP IF TTY IS BUSY (BR) 
sECHO CHARACTER TO TTY 
s;ONLY 6 BITS ALLOWED 

sWAS IT AN ASCII 1 

sBR, IF IT WAS (OL11 SEL.) 
sWAS IT AN ASCII 2 


3GO GET LF OR CR 

sCHECK FOR BAD INPUT 

sTRY AGAIN BAD INPUT (NOT CR) 
= MAINT FEATURE 

$ 

;CHK FOR <LF> DEFAULT 

sBR, IF DEFAULT (DL11 SEL.) 
;CHK FOR <CR> DEFAULT 

;BR, IF DEFAULT (DL1i1 SEL.) 
sWASN’T CORRECT TYPE-IN 


;GO GET LF OR CR 

sCHECK FOR BAD INPUT 

sTRY AGAIN BAD INPUT (NOT CR) 
;SHOW DEC PRESENCE 

;JUST TO BE SURE 

sPICK UP PENDING CHARACTERS 


sPRINT MESSAGE TO TTY 


;CHK TTY IN STATUS 

;WAIT FOR DONE 

sPICK UP CHARACTER TYPED IN 
sCHECK FOR BUSY 

:LOOP IF TTY IS BUSY (BR) 
sECHO CHARACTER 


sBR, IF DEFAULT SELECTED 

DEFAULT SEL. <CR> 
:BR, IF DEFAULT SELECTED 
sWAS IT AN ASCII 1 


;ALL THAT FOR BIT 15 
:GO GET AN OCTAL NUMBER 


2 A SH 


ee eee a ee ee 


—_—— --— ee _-- - = - — o-<. 
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CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR-85 15:38 SEQ 0049 
/ SERIAL LINE SETUP ROUTINES 
1803 010734 020027 123456 CMP 80, #123456 ;CHECK FOR NON-OCTAL ¢ 
| 1804 010740 001720 BEQ 54$ ;BR, IN NO GOOD ¢ 
1805 010742 000241 CLC ;CLEAR CARRY FOR "noTaTe 
| 1806 000014 REPT 12. 
| 1807 ROL #0 ;sROTATE RO 
| ~—-: 1808 .ENDR 
010744 006100 ROL #0 ;ROTATE RO 
010746 006100 ROL #0 sROTATE RO 
010750 006100 ROL 0 sROTATE RO 
010752 006100 ROL %0 sROTATE RO 
010754 006100 ROL %0 ;ROTATE RO 
010756 006100 ROL 0 sROTATE RO 
010760 006100 ROL 0 ;ROTATE RO 
£10762 006100 ROL #0 sROTATE RO 
010764 006100 ROL %0 sROTATE RO 
010766 006100 ROL 0 sROTATE RO 
010770 006100 ROL 0 sROTATE RO 
010772 006100 ROL 60 sROTATE RO 
1809 010774 060037 001124 ADD #0, WORK ;"OR” THE BITS IN 
1810 011000 004737 013560 JSR %7,GETOCT ;GO GET AN OCTAL NUMBER 
1811 011004 020027 123456 CMP #0, #123456 ;CHECK FOR NON-OCTAL ¢ 
1812 011010 001674 BEQ ;BR, IN NO GOOD ¢ 
1813 011012 000241 CLC ;CLEAR CARRY FOR nevare 
1814 000011 REPT 9. 
1815 0 ;ROTATE RO 
011014 006100 ROL 60 sROTATE RO 
011016 006100 ROL. 80 ;ROTATE RO 
011020 006100 ROL 0 sROTATE RO 
011022 006100 ROL 60 ;ROTATE RO 
011024 006100 ROL 0 sROTATE RO 
011026 006100 ROL 80 sROTATE RO 
011030 006100 ROL 0 sROTATE RO 
011032 006100 ROL 60 sROTATE RO 
011034 006100 ROL #0 sROTATE RO 
1817 011036 060037 001124 ADD #0, WORK ;"OR" THE BITS IN 
1818 011042 004737 013560 JSR #7,GETOCT ‘co GET AN OCTAL NUMBER 
1819 011066 020027 123456 #0, 0123456 ;CHECK FOR NON-OCTAL 6 
1820 011052 001653 BEQ 543 :BR, IN NO GOOD @ 
1821 011054 000241 CLC ;CLEAR CARRY FOR ROTATE 
1822 006 REPT 6 
1823 ROL #0 sROTATE RO 
1824 .ENDR 
011056 006100 ROL 60 sROTATE RO 
011060 006100 ROL #0 sROTATE RO 
011062 006100 sC sROTATE RO 
011064 006100 ROL 0 sROTATE RO 
011066 006100 ROL 0 sROTATE RO 
011070 006100 ROL 80 sROTATE RO 
1825 011072 060037 001124 #0, WORK :"OR" THE BITS IN 
1826 011076 004737 013560 JSR %7,GETOCT iGO GET AN OCTAL NUMBER 
1827 011102 020027 123456 CMP $0, 0123456 ;CHECK FOR NON-OCTAL @ 
1828 011106 001635 BEQ 54$ :8R, IN NO GOOD @ 
| 1829 011110 000241 CLC ;CLEAR CARRY FOR "ROTATE 
1830 000003 REPT 3 
1831 ROL 80 sROTATE RO 
1832 .ENDR 


“enw ee ee ree | rn rs 





——— —-ae. - = 


- ee ee ee eee a 


eee —_—— 


SS eC oe 


CZLCPA COLOR PRINTER ell MA 


SERIAL LINE SETUP ROUTINE 


011112 
011114 


014066 
001106 
167442 


167430 
167426 


167414 
177700 
000012 
000015 


000061 


167470 


65$: 





- EE ee 





L4 
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SEQ 0050 

ROL s0 sROTATE RO 
ROL %0 sROTATE RO 
ROL %0 sROTATE RO 
ADD #0 , WORK ;"OR” THE BITS IN 
JSR %7,GETOCT :GO GET AN OCTAL NUMBER 
CMP #0, 0123456 sCHECK FOR NON-OCTAL @ 
BEQ sBR, IN NO GOOD @ 
ADD s0 ;"OR” THE BITS IN 
MOV WORK ,DLLPS sADDRESS OF DL’S RECV STATUS 
MOV WORK , OLRBUF sADDRESS OF DOL’S RECV BUF 
ADD #2, OLRBUF sADDRESS OF DL’S RECV BUFFER 
MOV WORK ,LPS sNEV ADDRESS FOR CSR 
ADD 04,LPS sMUS‘ POINT TO TRANSMITTER BUF 
MOV LPS,LPB sGET STATUS ADDRESS 
ADD 2,LPB sPOINT TO DATA BUFFER ADDRESS 
BR 65% sSKIP OVER DEFAULT 
MOV DLCSRC,LPS sMOVE DEFAULT CSR IN 
ADD LPS s TRANSMITTER STATUS 
MOV DLCSRC,.DLLPS sADDRESS OF DL’S RECV STATUS 
MOV OLCSRC , OLRBUF sADDRESS OF DL’S RECV BUF 
ADD #2, OLRBUF sADDRESS OF OL’S RECV BUFFER 
MOV LPS LPB sSET UP THE DATA BUFFER 
AOD 2,LPB sSET TO CORRECT ADDRESS 
BR 67% sSKIP OVER CR GET 
JSR #7,GETCR sGO GET LF OR CR 
CMP 80 , 0123456 sCHECK FOR BAD INPUT 
BNE 2 sBR, IF CR RECEIVED (GOOD) 
JMP 34$ :JMP, IF BAD CHARACTER RECD. 
JSR #7, CLRTTY sPICK UP PENDING CHARACTERS 
JSR 87 ,OLSET sFIND OUT WHAT TYPE D111 
JSR 87, CLRITY sPICK UP PENDING CHARACTERS 
81S #100, aTKS ;TURN BACK ON 
EMT 0 sMESSAGE ADDRESS 
OLCRLF sMESSAGE ADDRESS 
RTS 67 sRETURN TO CALLEE 
IT’S A 0211 
JSR 67, CLARITY sPICK UP PENDING CHARACTERS 
EMT 0 sPRINT MESSAGE TO TTY 
OZCSRM 

R OLHERE ;JUST TO BE SURE 
TSTB aTKs sCHK TTY IN STATUS 

3558 sWAIT FOR DONE 

MO aTKB 80 sPICK UP CHARACTER TYPED IN 
TSTB aTPs :CHECK FOR BuSY 
BPL 3563 sLOOP IF TTY IS BUSY (BR) 
MOVB 80 ,9TPB sECHO CHARACTER 
BIC 9177700,#0 sONLY 6 BIT PASS 
CMPB #12,%80 WAS T SEL. <LF> 
BEQ & sBR, IF DEFAULT SELECTED 
CMPB #15,80 sWAS DEFAULT SEL. <CR> 
BEQ $ :BR, IF DEFAULT SELECTED 
CMPB 961,80 sWAS IT AN ASCII 1 
BEQ 357$ :BR, IT WAS A 1 


. ELL cE. een ee ee ee ;- Se ee ee 


CZLCPA COLOR PRINTER DIAGNOSTIC 
SERIAL LINE SETUP ROUTINES 


1887 011426 
1888 011432 
1869 011434 
1890 011440 


1891 
1892 
1893 
1894 


1915 
1916 


011444 
011452 
011456 
011462 
011464 


011614 
011620 


~e- (ES 8 + SC Ee SSR 
LS LL SOLERO IOCEN ES OS TESLA PRATER ESE ELISE LEST I EST 


000067 


177770 
001124 


001124 
013560 
123456 


001124 
013560 








M4 
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001124 


357$: 


CMPB 


967 ,#0 
350% 
9177770,80 
WOR 


» WORK 
7,GETOCT 
ownree 


BSSSSESESEESSESE 


SSSSSSSSEE BY 


» WORK 
7,GETOCT 
0123456 


gs 


S8SSSS5 §° 


as 


sWAS IT AN ASCII 7 
BR, IF IT WASN’T A 1 OR 7 
sONLY 3 BITS NEEDED 

WORK AREA 


SCLEAR 


;ALL THAT FOR BIT 15 
:PICK UP AN OCTAL 
;CHECK FOR BAD DATA 
;BR, IF DATA WAS BAD 
;CLEAR CARRY FOR ROTATE 


sROTATE RO 


sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
—— % RO 


6 
;CLEAR CARRY FOR ROTATE 


sROTATE RO 


sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 


;"OR“ THE BITS IN 


NO 
CLEAR CARRY FOR ROTATE 


sROTATE RO 


sROTATE RO 
sROTATE RO 
sROTATE RO 
sROTATE RO 
;sROTATE RO 
sROTATE RU 


;"OR" THE BITS IN 
:GO GET AN OCTAL NUMBER 


SE@ 0051 


. —_—— eee ee; 


- SE: eee EE EE ET 


| 


CZLCPA COLOR PRINTER DIA 
SERIAL LINE SETUP ROUTI 


011624 
011630 
011632 


011634 


011770 
011772 


012010 


012014 
012020 


012024 


020027 
3 


062737 


013746 
013746 
012737 
105777 
000411 


022626 
012637 


012637 
012637 


012777 
013737 
032777 
001374 
004737 


005037 
004737 


NES 
123456 


001124 
013560 
123456 


001124 
001124 
001000 


013642 
123456 


011340 


001040 
001000 
000006 


0 
011772 
167010 


000006 
000004 


010260 


001124 
014066 


166746 
001120 
166732 


360$: 


365$: 


372$: 
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N4 
SEQ 0052 
CMP 80, 0123456 sCHECK FOR NON-OCTAL 6 
BEQ 350$ ;6R, IN NO GOOD @ 
CLC sCLEAR CARRY FOR ROTATE 
REPT 3 
ROL 60 sROTATE RO 
.ENDR 
ROL #0 sROTATE RO 
ROL #0 sROTATE RO 
ROL #0 sROTATE RO 
ADD #0 , WORK ;“OR” THE BITS IN 
JSR #7 ,GETOCT sGO GET AN OCTAL NUMBER 
CMP #80, 0123456 sCHECK FOR NON-OCTAL @ 
BEQ $ ;BR, IN NO GOOD @ 
ADD #0, WORK ;"OR” THE BITS IN 
MOV WORK ,LPS sNEW ADDRESS FOR CSR 
MOV LPS,LPB sGET STATUS ADDRESS 
ADD LPB sPOINT TO DATA BUFFER ADDRESS 
JSR #7,GETCR :GO GET LF OR CR 
CMP 80, 0123456 sCHECK FOR BAD INPUT 
BNE 365 sBR, IF CR RECEIVED (GOOD) 
JMP 350$ sJMP, IF NO CR (BAD) 
MOV OZCSRC,LPS sMOVE DEFAULT CSR IN 
MOV LPS LPB ;SET UP THE DATA BUFFER 
ADD #6 ,LPB sSET TO CORRECT BUFFER 
sIS DZ LINE VALID??? 

MOV 804 , -( SP) sSAVE VECTORS 
MOV 806, -(CSP) ; SAVE 
MOV 372% ,4 sRELOAD VECTOR 
TSTB a&Ps :IS PRINTER THERE? 

374$ sYES, SKIP TRAP PROCESSING 

sIF YES, NEVER GET HERE. 

CMP CSP)+,(SP)- sRESTORE STACK 
MOV (SP )+,.6 sRESTORE VECTORS 
MOV (SP)+,4 ;RESTORE 
EMT +0 
ERMS1 ;SLU NOT THERE 
JMP 30% ;TRY AGAIN 
SLU IS HERE 
MOV CSP )+.6 sRESTORE VECTORS 
MOV (SP)+,4 sRESTORE 
MOV $20,aLPS sSET MASTER CLEAR IN 0211 
MOV LPS ,DOZCSRH sHOLD CSR ADDRESS FOR LATER 
BIT #20,@LPS sWAIT FOR MC TO 
BNE 366% :BR, IF MASTER CLEAR IS SET 
JSR #7,CLRITY sPICK UP PENDING CHARACTERS 
GET THE 0Z'S LINE NUMBER 
CLR WORK ;CLEAR THE WORK AREA 
JSR 87,CLRITY sPICK UP FENDING CHARACTERS 
EMT 20 ;CALL PRINTER 
OZLINE sMESSAGE ADDRESS 


CZLCPA COLOR PRINT 
SERIAL LINE SETUP 


- ee oe ee 


012260 


012262 


012332 
012336 


—_—_——— —— a a Ree 


ER DIAGNOSTIC MACRO M1113 12-MAR-85 15:38 
ROUTINES 


166726 


166714 
166712 


166700 
177700 
000012 
000015 
001124 
177700 
000070 
000060 
177770 
001124 
001124 


001072 


052737 000001 


001072 
001072 
000001 


001066 


013642 


123456 


014066 


014066 


014066 


014066 


014066 


014066 


001072 
001066 


001070 


4703: 


4803: 


490$: 


495$: 


496$: 


#177770,#0 
80, 
WORK , DZLNE 
495$ 

OZLNE 
#1,0ZTCR 
498$ 


DZLNE ,DZLPR 
OZLNE ,%3 
61,83 

#1 


#1 


83 ,496$ 
#1,D0ZTCR 
#7 ,GETCR 
80, 0123456 
395$ 


02'S BAUD RATE 


#7 .,CLRTITY 
9] 
#7, CLRITY 
«0 
#7, CLRITY 
«0 
#7,CLRITY 
+0 
#7,CLRITY 
+0 


%7,CLRITY 
+0 


eee 
B5 


;CHK TTY IN STATUS 
;sWAIT FOR DONE 

sPICK UP CHARACTER TYPED IN 
;CHECK FOR BUSY 

;LOOP UNTIL NOT BUSY 

sECHO CHARACTER 

;ONLY 6 BIT PASS 

sWAS DEFAULT SEL. <LF> 

;BR, IF DEFAULT SELECTED 
;WAS DEFAULT SEL. <CR> 

;BR, IF DEFAULT SELECTED 
;CLEAR WORK AREA 

;sONLY 6 BIT PASS 

sERROR IF 8 OR MORE 


sERROR IF LESS THAN O 


sONLY THREE BITS PASS 
;"OR”" THE BITS IN 

;SET UP NEW LINE NUMBER 
;SKIP OVER DEFAULT 

sSET WITH DEFAULT VECTOR 
;SET LINE O POSITION 
sSKIP OVER CR GET STUFF 


sSET LINE NUMBER UP 


R OF LOOPS 


; NUMBE 
;SET UP COUNTER FOR SOB 
;CLEAR WORK AREA 
;SET CARRY BIT 
sMOV BIT INTO POSITION 
:DON'T SHIFT IN CARRY 
sKEEP GOING IF NOT ZERO 
;BIT FOR LINE NUMBER 
:GO GET LF OR CR 
:CHECK FOR BAD INPUT 
3TRY AGAIN BAD INPUT (NOT CR) 


:PICK 
;CALL 


UP PENDING CHARACTERS 


RATE MENU PRINTOUTS 
UP PENDING CHARACTERS 


RATE MENU PRINTOUTS 
UP PENDING ja, 


TO THE TTY PRINTER 


te i TT 


ee ee eee — 


| CZLCPA COLOR PRINTER DIA 


SERIAL LINE SETUP ROUTI 


012737 


122700 
001003 
012737 


122700 
001003 
012737 


NES 


014066 


014066 


014066 


166424 


166412 
166410 


166376 
177700 
000012 
000015 
001124 
177770 
000001 
002000 
000002 
002400 
000003 


003000 


000007 
007000 


013642 
123456 


007000 


001124 


001124 


001124 


001124 


001124 


001124 


001124 


001124 


500$: 


507$: 


510$: 


320$ : 


521$: 


322$: 


523$: 


324$: 


543$: 





Se 
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#7,CLRITY 
+0 
#7,CLRITY 
+0 


#7,CLRITY 
+0 


WOR 
#177770,80 
#0 


510$ 
#2000 , WORK 


;BAUD RATE MENU PRINTOUTS 
sPICK UP PENDING CHARACTERS 
;CALL TO THE TTY PRINTER 
s;BAUD RATE MENU PRINTOUTS 
sPICK UP PENDING CHARACTERS 
;CALL TO THE TTY PRINTER 
;BAUD RATE MENU PRINTOUTS 
sPICK UP PENDING CHARACTERS 
;CALL TO THE TTY PRINTER 
s;BAUD RATE MENU PRINTOUTS 
;CHK TTY IN STATUS 

;WAIT FOR DONE 

sPICK UP CHARACTER TYPED IN 
;CHECK FOR BUSY 

sLOOP UNTIL NOT BUSY 

sECHO CHARACTER 

sONLY 6 BIT PASS 

sWAS DEFAULT SEL. <LF> 

;BR, IF DEFAULT SELECTED 
sWAS DEFAULT SEL. <CR> 

;BR, IF DEFAULT SELECTED 
;CLEAR WORK AREA 

sONLY THREE BITS PASS 
sCHECK FOR A “1” TYPED 

:BR, IF IT WASN’T A ONE 
;SET FOR 150 BAUD 


s;CHECK FOR A TWO TYPED 
;BR, IF IT WASN’'T A “2” 
;SET FOR 300 BAUD 


;CHECK FOR A THREE TYPED 
:BR, IF IT WASN'T A "3" 
;SET FOR 600 BAUD 


;CHECK FOR A FOUR TYPED 
sBR, IF IT WASN'T A “q" 
;SET FOR 1200 BAUD 


sCHECK FOR A FIVE TYPED 
:BR, IF IT WASN'T A "5" 
sSET FOR 2400 BAUD 


sCHECK FOR A SIX TYPED 
BR, IF IT WASN'T A "=" 
;SET FOR 4800 BAUD 


;CHECK FOR A SEVEN TYPED 
:BR, IF IT WASN'T A "7" 
:SET FOR 9600 BAUD 

;GO GET LF OR CR 

;CHECK FOR BAD INPUT 

;BR, IF CR RECEIVED (GOOD) 
;LEAVE 

;sDEFAULT 1S 9600 

;LEAVE 


——- --_ ee eee lie -_-~ ~- -— - 


SEQ 0054 


rr ee ee ee 


_CZLCPA COLOR PRINTER DIAGNOSTIC MACRO 
SERIAL LINE SETUP ROUTINES 


| 


012616 


012764 
012766 
012772 


012776 


013000 
013006 
013006 


013012 
013012 


013052 
013056 


- ee wee 


023727 


013737 
053737 


052737 
004737 


122700 


001124 
013642 
123456 


001124 
001124 


014066 


166132 


166120 
166116 


166104 
177700 
000012 
000015 
000061 


013642 
123456 


000040 
000062 


013642 
123456 


000040 
014066 


014066 


165774 


165762 
165760 


165746 
177700 
000012 


000000 


001102 
001070 


001070 


001070 





DS 
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527$: 


607$: 


610$: 
620$: 


707$: 


WORK , BRATE 
WORK ,OZLPR 


THIS CODE SETS UP THE NUMBER OF STOP BITS 


JSR 


#7,CLRITY 
+0 


+. 
#40,DZLPR 
%7,CLRTITY 


#7,CLRITY 
+0 


SEQ 0055 


sCHECK FOR NOT SET 

;BR, IF NUMBERS NOT VALID 

;GO GET LF OR CR 

s;CHECK FOR BAD INPUT 

;TRY AGAIN BAD INPUT (NOT CR) 


sSTORE BAUD RATE FOR LATER 
s;PUT BAUD RATE IN PLACE 


sPICK UP PENDING ne 


sCALL PRINT ROUTI 
;"TYPE NUMBER OF STOP BITS ETC.” 
sCK TTY IN STATUS 

FOR DONE 


;WAIT 


sPICK UP CHARACTER 

;CHECK FOR BUSY 

sLOOP IF TTY IS BUSY (BR) 
sECHO CHARACTER 

sONLY 6 BIT PASS 

;CHK FOR <LF> DEFAULT 

3;BR, IF DEFAULT CONE STOP BIT) 
sCHK FOR <CR> DEFAULT 

;BR, IF DEFAULT CONE STOP BIT) 
sWAS AN ASCII 1 TYPED 

;BR, IF IT WASN’T A ONE 

;GO GET LF OR CR 

;CHECK FOR BAD INPUT 

;TRY AGAIN BAD INPUT (NOT CR) 
:1 STOP BIT = oO 


:SKIP OVER 


;CHECK FOR A TWO 

;BR, IF NOT A TWO CERROR) 
:GO GET LF OR CR 

;CHECK FOR BAD INPUT 


;TRY AGAIN BAD 
s2 STOP BIT = 


— CNOT CR) 


sPICK UP PENDING CHARACTERS 
THIS CODE SETS UP THE NUMBER OF DATA BITS 


sPICK UP PENDING CHARACTERS 
sCALL PRINT ROUTINE 


3; “TYPE 


MUNBER 
sCK TTY IN STATUS 
sWAIT FOR DONE 


OF DATA BITS ETC.” 


sPICK UP CHARACTER 
;CHECK FOR BUSY 
;LOOP IF TTY ht BUSY (BR) 


sECHO CHARACT 


s;ONLY 6 BIT PASS 
sCHK FOR <LF> DEFAULT 
;BR, IF DEFAULT (7 DATA BITS) 


One ee et. eee 


ee oo. wee -ae 
LLL A CO CN CL LEE Ee eh te te 


' 
| LS cn 


/CZLCPA COLOR PR 
| SERIAL LINE SET 


2142 013060 


013162 
013162 
013166 
013170 
013172 
013176 
013200 


013320 


INTER DIAGNOSTIC MACRO M1113 


UP ROUTINES 


001721 
052737 


004737 


000015 
000967 


000020 
000020 
013642 
123456 
000070 


013642 
123456 


000030 
014066 


014066 


165624 


165612 
165610 


165576 
177600 
000012 
000015 
000131 


013642 
123456 


000100 
000116 


013642 
123456 


000100 
013462 


014066 


001070 
001070 


001970 


001070 


001070 


710$: 
715$: 


7208: 


807$: 


810$: 


820$: 


Eo 


12-MAR-85 15:38 


CMPB #15 ,#0 

BEQ 710$ 

CMPB #67 ,#0 

BNE 720$ 

BR 715$ 

BIS #20,DZLPR 
BR 730$ 

BIS #20,D0ZLPR 
JSR %7,GETCR 
CMP 80 , #123456 
BEQ 700$ 

BR 730$ 

CMPB #70,80 
BNE 700$ 

JSR %7,GETCR 
CMP 80 , #123456 
BEQ 700$ 

BIS #30,DZLPR 
JSR %7,CLRTITY 


THIS CODE SETS UP PARITY BITS 


JSR #7,CLRITY 
+0 


EMT 
PARITY 
TSTB aTKS 
BPL 804$ 
MOVB aTKB #0 
TSTB aTPSs 
BPL 807$ 
MOVB #0, aTPB 
BIC #177600,#0 
#12 ,80 
BEQ 825$ 
CMPB #15 ,#0 
BEQ 3$ 
CMPB #131 ,#0 
BNE ° 


BEQ 

BIS #100,DZLPR 
BR 830% 

CMPB #116 ,%0 
BNE 800$ 


JSR %7,GETCR 
CMP 80, #123456 
800$ 


BIC #100,DZLPR 
950$ 


JSR #7,CLRITY 





;CHK FOR <CR> DEFAULT 
:BR, IF DEFAULT (7 DATA BITS) 
sWAS AN ASCII 7 TYPED 

;BR, IF IT WASN’T A SEVEN 
;SKIP OVER 

:7 DATA BITS = 10 

;SKIP OVER CR GET 

;7 DATA BITS = 10 

;GO GET LF OR CR 

;CHECK FOR BAD INPUT 

;TRY AGAIN BAD INPUT (NOT CR) 
;SKIP OVER 

;CHECK FOR A EIGHT 

;BR, IF NOT A EIGHT CERROR) 
;GO GET LF ORCR 

sCHECK FOR BAD INPUT 

;TRY AGAIN BAD INPUT (NOT CR) 
:8 DATA BITS = 30 


sPICK UP PENDING CHARACTERS 


sPICK UP PENDING CHARACTERS 
;CALL PRINT ROUTINE 

;"IS PARITY SELECTED “ 

:CK TTY IN STATUS 

;WAIT FOR DONE 

;PICK UP CHARACTER 

;CHECK FOR BUSY 

sLOOP IF TTY IS BUSY (BR) 
sECHO CHARACTER 

sONLY 7 BIT PASS 

;CHK FOR <LF> DEFAULT 

;BR, IF DEFAULT (NO) 

;CHK FOR <CR> DEFAULT 

;BR, IF DEFAULT (NO) 

sWAS AN ASCII Y TYPED 

;BR, IF IT WASN'T A Y 

:GO GET LF OR CR 

sCHECK FOR BAD INPUT 

sTRY AGAIN BAD INPUT (NOT CR) 
:YES PARITY IS USED 

:SKIP OVER 

;CHECK FOR AN 

;BR, IF NOT AN CERROR) 

:GO GET LF OR CR 

;CHECK FOR BAD INPUT 

;TRY AGAIN BAD INPUT (NOT CR) 
;NO PARITY 

sNO MORE PARITY ? 


sPICK UP PENDING CHARACTERS 


THIS CODE SETS UP THE ODD EVEN PARITY BIT 


er ee ee eee 








—_ _ —— ee 


FS 


| CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR-85 15:38 SEQ 0057 
| SERIAL LINE SETUP ROUTINES 
| 2199 013324 900$: 
2200 013324 004737 014066 JSR %7,CLRITY sPICK UP PENDING CHARACTERS 
2201 013330 104000 EMT +0 ;CALL PRINT ROUTINE 
2202 013332 017340 PARITZ ;"IS PARITY ODD OR EVEN” 
2203 013334 105777 165462 904$: TSTB aTKS ;CK TTY IN STATUS 
2204 013340 100375 BPL 904$ ;WAIT FOR DONE 
2205 013342 117700 165450 MOVB aTKB,#s0 ;PICK UP CHARACTER 
2206 013346 105777 165446 907$: TSTB aTPS ;CHECK FOR BUSY 
2207 013352 100375 BPL 907$ ;LOOP IF TTY IS BUSY (BR) 
2208 013354 110077 165434 MOVB #0,9TPB sECHO CHARACTER 
2209 013360 042700 177600 BIC #177600 ,#0 ;ONLY 7 BIT PASS 
2210 013364 122700 000012 CMPB #12,%0 ;CHK FOR <LF> DEFAULT 
2211 913370 001413 BEQ 10$ ;BR, IF DEFAULT (ODD) 
2212 013372 122700 000015 CMPB #15 ,#0 ;CHK FOR <CR> DEFAUL 
2213 013376 001410 BEQ 910$ ;BR, IF DEFAULT (CODD) 
2214 013400 122700 000117 CMPB #117,#80 sWAS AN ASCII O TYPED 
2215 013404 001011 BNE 0$ ;BR, IF IT WASN'T A ONE 
2216 013406 004737 013642 JSR #%7,GETCR ;GO GET LF OR CR 
2217 013412 020027 123456 CMP 80, #123456 ;CHECK FOR BAD INPUT 
2218 013416 001742 BEQ $ s;TRY AGAIN BAD INPUT (NOT CR) 
2219 013420 042737 000200 001070 910$: BIC #200,DZLPR ;0DD PARITY = 0 
2220 013426 000413 BR 930$ ;SKIP OVER 
2221 013430 122700 000105 920$: CMPB #105 ,#0 ;CHECK FOR AE 
2222 013434 001333 BNE 900$ ;6R, IF NOT A TWO CERROR) 
2223 013436 004737 013642 JSR #%7,GETCR :GO GET LF OR CR 
2224 013442 020027 123456 CMP #0, #123456 sCHECK FOR BAD INPUT 
2225 013446 001726 BEQ 900$ ;TRY AGAIN BAD INPUT (NOT CR) 
2226 013450 052737 000200 001070 BIS #200,DZLPR sEVEN PARITY = 1 
2227 013456 930$: 
poe 013456 004737 014066 JSR #7,CLRTITY sPICK UP PENDING CHARACTERS 
222 ; 
2230 013462 950$: 
2231 ; SET UP ACTUAL DZ REGISTERS 
2232 ; 
2233 013462 013703 001000 MOV LPS #3 sGET STATUS REGISTER ADDRESS 
2234 013466 062703 000006 AOD 83 sPOINT TO TRANS BUFFER ADDR 
2235 013472 010337 001002 MOV #3,LPB s;PRINTER DATA BUFFER ADDR 
2236 013476 013703 001000 MOV LPS ,#3 sGET STATUS REG ADDRESS 
2237 013502 062703 000002 ADD 92,43 sPOINT TO LPR REGISTER 
2238 013506 010337 001116 MOV #%3,OZRBUF sADDRESS OF RECEIVER BUFFER 
2239 013512 052737 010000 001070 BIS #10000 ,DZLPR sSET RECEIVER ON BIT 
2240 013520 013713 001070 MOV DZLPR, (#3) sSET SPEED, LINE, PARITY ETC 
2241 013524 052777 000040 165246 BIS #40,8LPS ;SET MASTER SCAN ENABLE 
2242 013532 062703 000002 ADD $2 ,%3 sPOINT TO TCR REGISTER 
2243 013536 113713 001066 MOVB DZTCR, (#3) ;SET TRANS LINE NUMBER 
2244 013542 010337 001110 MOV #3,DZTCRA ;ADDRESS FOR DTR CHECK 
2245 013546 062737 000001 001110 ADD #1,D0ZTCRA sPOINT TO UPPER HALF 
44 ; SHOULD BE ALL SET 
224 ; 
2248 013554 000137 011324 JMP 99$ sRETURN TO CALLEE 


ee me et ee : 
meee ee 


SO ors te 


| 
| 
' 
: 


CZLCPA COLOR PRINTER DIAGNOST 


SERIAL LINE SETUP ROUTINES 


_—— —  < ceeee 
. 


013560 
013560 


013634 
013640 


013642 
013642 


013762 
013764 
013770 


105777 


012700 
000207 


105777 


165236 


165224 
165222 


165210 
177700 
000070 
000060 
177770 


013640 
123456 


165154 


165142 
165140 


165126 
177700 
000015 
000012 


123456 
014066 


014066 


165052 


165040 
165036 


165024 
177700 


—_————_ 


G5 
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SEQ 0058 


i SEREEEREREREREEEA ARERR EEE ER EE REREERER EERE EREEE ERE EREEE CER EEEEEES 


; OTHER SUBROUTINES 


GETOCT: 
1$: 


5$: 


10$: 
20$: 


H 

; 
GETCR: 
1$: 


S$: 


10$: 
205: 


ETACHK: 


1$: 


5$: 


THIS ROUTINE WAITS FOR A CR OR LF 


#177770 ,#0 
20$ 
#123456 ,#%0 
%7 


#123456 , #0 
#7,CLRITY 
%7 


#7,CLRITY 
+0 


sCK TTY IN STATUS 
DONE 


;WAIT FOR 


;PICK UP CHARACTER 

;CHECK FOR BUSY 

;LOOP IF TTY IS BUSY (BR) 
;ECHO CHARACTER 

;ONLY 6 BIT PASS 

sERROR IF 8 OR MORE 


;ERROR IF LESS THAN O 
;ONLY THREE BITS PASS 


sOCTAL # OK 


sWAS NOT OCTAL # 


i SEREREEEREREREREE EERE ERA EEE ERE REE REESE REE EEE EERE EEEEEEEEESEEEEESS 


sCK TTY IN STATUS 
OR DONE 


sWAIT F 


sPICK UP CHARACTER 
sCHECK FOR BUSY 

sLOOP IF TTY IS BUSY (BR) 
sECHO CHARACTER 

sONLY 6 BIT PASS 


sWAS IT A CR 


;BR, IF IT WAS 


sWAS IT A LF 


;B8R, IF IT WAS 
sWAS NOT OCTAL # 
;CLEAR OUT ANY WAITING CHARA 


sPICK UP PENDING CHARACTERS 
s;CALL TO THE TTY PRINTER 


%0,3TPB 


:;"LINE TYPE” 

;CALL TO THE TTY PRINTER 
3" 1 EIA" 

;CALL TO THE TTY PRINTER 
" 20MA" 


: 
;CALL TO THE TTY PRINTER 
;"SERIAL LINE TYPE <j1>?" 
;CHK TTY IN STATUS 

;WAIT FOR DONE 

sPICK UP CHARACTER TYPED IN 
;CHECK FOR BUSY 

;LOOP UNTIL NOT BUSY 

sECHO CHARACTER 

;ONLY 6 BIT PASS 


LL Rarer el 


——a- ee eee - 


| CZLCPA 
| SERTAL 


COLOR PRINTER DIAGNOSTIC MACRO 
LINE SETUP ROUTINES 


013774 


014056 
014064 


014066 
014066 
014072 
014076 
014100 
014104 
014110 
014112 
014116 
014120 


122700 
001426 
122700 
001423 
042700 
122700 


004737 
000413 
122700 
001340 
005037 
004737 
000403 
012737 
000207 


012703 
105777 
100007 
117700 
105777 
100375 
110077 
077313 
000207 


000012 
000015 


177770 
000001 


000001 
013642 


000002 


001112 
013642 


000001 


040000 
164724 


164712 
164710 


164676 


001112 


001112 


10$: 


20$: 
100$: 





H5 


M1113 12-MAR-85 15:38 


#12 ,#0 
20$ 
#15 ,#0 


20$ 
#177770,#80 
#1,%0 


—__ -——-- ee ER eS es tee ace ~- 





sWAS DEFAULT SEL. <LF> 
;BR, IF DEFAULT SELECTED 
;WAS DEFAULT SEL. <CR> 
;BR, IF DEFAULT SELECTED 
sONLY THREE BITS PASS 
;CHECK FOR A “1” TYPED 
;BR, IF IT WASN’T A ONE 
;SET FOR EIA 

;WAIT FOR CR 

sEXIT 

;CHECK FOR 20MA 

;BR, NEITHER 

;SET TO 20 MA 

;WAIT FOR CR 

sEXIT 

;CR = DEFAULT = EIA 
sEXIT SUBROUTINE 


3 SEEREREEREREEEEEEEER AREER EERE ERE E EE EAAERE REA EEEE EERE E EEE EES EERE ES 


5 
CLRTTY: 
1$: 


3$: 


5$: 


THIS SUBROUTINE PICKS CHARACTERS OUT 
GETS RID OF THE “EXTRA” ONES 


2.€. 


OF THE TTY RECEIVE BUFFER 


;BIG COUNTER 

;CHECK FOR RECEIVER DONE SET 
;BR, IF DONE IS NOT SET 
;PICK UP THE CHARACTER 
;CHECK FOR TRANSMITTER READY 
;sWAIT UNTIL READY 

sECHO THE “EXTRA” CHARACTER 
:LOOP COUNTER 

sRETURN TO CALLEE 


SEQ 0059 


ee em ee ee ee | 
ee ee 


— Se ee ee — aT 


CZLCPA COLOR PRINTER | paella MA 


| SERIAL LINE SETUP ROUTINE 
' 


| 
| 


v— << — <a 
‘ 


014122 
014122 
014126 
014130 
014134 
014136 
014142 
014144 


014146 
014146 
014152 
014154 
014160 
014162 
014166 
014170 
014176 
014200 


014302 
014306 


005737 
001403 
005737 
000207 
005777 
000774 
000200 


117705 
042705 


001102 
014144 
164636 


001106 
001102 
001112 
164714 
164574 
164564 
164556 
164666 
177700 
000023 
164532 
164640 
177700 
000021 
000200 


164572 
177700 


001066 
000200 


000200 


164576 
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Lo 


SEQ 0060 


i EEEEEEEREREAEREERAAAEERER ER ERE OREREREEEREERR EERE KEK REE EE ERE RERE EES 


; TEST FOR ERROR, 
3 THIS ROUTINE TAKES THE PLACE OF ALL THE “TST aLPs« CODES. 
; THIS WAS REQUIRED FOR THE DZ11. IF THE OZ IS NOT SELECTED 
; THE ROUTINE SIMPLY DOES THE “TST @LPS” AND RETURNS. IF THERE 
; IS A DZ11 IT ONLY CHECKS A DUMMY WORD TO SHOW NO ERROR 
ler THERE ARE NO TRANSMIT ERRORS ON THE DZ11. 
HK ; 
TST BRATE ;CHECK FIRST FOR DZ 
BEQ 50$ ;BR, IF NO OZ SELECTED 
TST TSTWRD DUMMY CONDITION CODE SETUP 
203: RTS %7 sRETURN WITH NO MINUS T 
50$: TST @L_Ps sNOT DZ SO DO REGULAR CHECK 
BR 20$ sRETURN WITH CODES ETC 
TSTWRD: .WORD 000200 sNO MINUS BIT SET 


i SERRE EERE EERE EERE EERE EOE EHEEKEESSEEAEE RARER EEE CEEE ESSE SeEEE SS 


“TSTB ALPS” CODES. 
THIS WAS REQUIRED FOR THE DZ11. IF THE DZ IS NOT SELECTED 
“TSTB @LPS” AND RETURNS. IF THERE 
READY BIT (B1T15). 


Li TINE DOES A "TST ALPS” WHICH SETS THE CORRECT CONDITION 
RCHKB: 

TST DLHERE sARE WE TALKING TO A DL 

BNE 80$ ;BR, IF DL IS BEING USED 

TST BRATE sCHECK FIRST FOR DZ 

BEQ 50$ ;BR, IF NO DZ SELECTED 

TST EI4 ;sWHAT MODE ARE WE IN 

BEQ 5$ ;BR, IF IN 20 MA MODE 

BITB @O0ZTCRA,OZTCR sIS DATA TERMINAL READY SET 

BEQ 100$ ;BR IF IT IS NOT SET CERROR) 
S$: BIT @LPS ,#200 sRECEIVER DONE SET 

BNE 60$ sBR, IF RECVR HAS CHARACTER 
10$: TST @LPs sLOOKS AT REAL READY SIT 
20$: RTS 67 ; WITH NO MINUS SET 
50$: TSTB @LPS sNOT DZ SO DO REGULAR CK 

BR 20$ 3 WITH CODES ETC 
60$: MOV @DZRBUF , #5 sPICK UP CHARACTER 

BIC #177700 ,#5 sONLY 6 BITS PASS 

CMPB 85,923 ;CHK FOR XOFF CCNTL S) 

BNE 10$ :BR, IF NOT XOFF CRETURN) 
70$: BIT ALPS , #200 sLOOK FOR ANOTHER CHARACTER 

BEQ 70$ sWAIT HERE FOR NEXT CHARACTER 

MOV @DZRBUF , #5 :IT ARRIVED 

BIC #177700 ,85 sONLY SIX BITS PASS 

CMPB 85,021 ;WAS IT XON CCNTL Q 

BNE 70$ :BR, IF IT WASN'T XON (LOOP) 

BR 10$ :IT WAS XON RET 
80$: BIT #200, @DLLPS sHAVE WE RECEIVED A RECV CHARA 

BEQ 50$ ;BR, IF WE HAVE NOT 

MOVB ADLRBUF , #5 ;PICK UP THE CHARACTER 

BIC #177700 ,85 ;ONLY SIX BITS 


SS SD Se <n | 


— ee ee 


'CZLCPA COLOR PRINTER DIAGNO 


<1 — a we me 


| SERIAL LINE SETUP ROUTINES 


2399 014312 
2400 014316 


2401 


014320 


2402 014326 
2403 014330 


2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 


014334 
014340 
014344 
014346 
014352 
014354 
014356 
014360 


120527 
001337 
032777 
001774 
117705 
042705 
120527 
001365 
000137 
104000 
015536 
000000 
000137 


000023 
000200 
164544 
177700 
000021 


014216 


014146 


164550 90$: 


100$: 
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“5, #23 
S0$ 





J5 


#200, @DLLPS 
90$ 


@DLRBUF , #5 
#177700 ,#5 


#5 ,%21 
90$ 


50$ 
+0 


ERCHKB 


———————— ee ee SE ES sie -_ = — ee - 


;WAS IT AN XOFF 

;BR, IF NOT (FORGET 1T) 
;DID ANOTHER ARIVE 

;BR, IF NO OTHER CHARACTER 
;WELL PICK IT UP 

s;ONLY SIX BITS 

sWAS IT AN XON 

;LOOP IF NOT XON 

+XON = DO SOME MORE 

sCALL TYP ROUTINE 

Ps ina IS NOT SENDING DTR” 


; 
;LOOP AROUND 


me. oe  ~ 


CZLCPA COLOR PRINTER 1 elle MACR 


SERIAL LINE SETUP ROUTINE 


! 
| 
j 
! 
' 


2413 
2414 


014364 


014600 


164412 


164400 
164376 


164364 
177700 
000012 
000015 
000061 
000062 


013642 
123456 


014066 


013642 
123456 


013642 
000001 
164260 


164246 
164244 


164232 
177600 
000012 
000015 


000131 


001102 





KS 
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CO ee ae —— - _ — a 


SEQ 0062 


tate LLLLLLLL TTT TT ree 


DLSET: 


40$: 


45$: 


110%: 


115$: 


THIS ROUTINE CHECKS FOR DL11S THAT NEED ADDITIONAL PROGRAMMING 
FEATURES I.E. PROGRAMAC!.E BAUD RATES ON THE DLV11-E/F MODULES. 


+0 
+0 
+0 


O$ 
#7,CLRITY 
87 


#7 ,GETCR 
#0, 0123456 
105$ 


75% 
#7,GETCR 
+0 


#1,BRATE 


sPRINT CALL 

;"DL11 TYPE MENU” 

;PRINT MESSAGE CALL 

;"1 OLV11-F OR OLV11-E” 
sPRINT MESSAGE CALL 

;"2 OLVi1, DLii OR OLV11-y" 
s;PRINT MESSAGE CALL 
;"ENTER MENU SELECTION” 
sREAD TTY'S STATUS 

;BR, IF NOT DONE 

sPICK UP CHAR. TYPED 
sCHECK FOR BUSY 

sLOOP IF TTY IS BUSY (BR) 
sECHO CHARACTER TO TTY 
;ONLY 6 BITS ALLOWED 

sCHK FOR <LF> DEFAULT 
;BR, IF DEFAULT (NO) 

;CHK FOR <CR> DEFAULT 
;BR, IF DEFAULT (NO) 

;WAS IT AN ASCII 1 

3;BR, IF IT WAS (DL11 SEL.) 
sWAS IT AN ASCII 2 


:GO GET LF OR CR 

sCHECK FOR BAD INPUT 

sTRY AGAIN BAD INPUT (NOT CR) 
sCLEAR OUT THE TTY 

sRETURN TO CALLEE 

sLOOK FOR CR 

sWAS THERE AN ERROR 

;BR, IF AN ERROR RESTART 
sEXIT NO ERROR 


:GET CR 

sCALL PRINT ROUTINE 

;"DOES DL HAVE PROG BAUD RATE” 
sSWITCH FOR BAUD RATE NEEDED 
:CK TTY IN STATUS 

sWAIT FOR DONE 

:PICK UP CHARACTER 

sCHECK FOR BUSY 

:LOOP IF TTy IS BUSY (BR) 
sECHO CHA?ACTER 

sONLY 7 BIT PASS 

;CHK FOR <LF> DEFAULT 

;BR,. IF DEFAULT (NO) 

;CHK FOR <CR> DEFAULT 

;BR, IF DEFAULT (NO) 

sWAS AN ASCII Y TYPED 


rrr 


———— ee 


oe —_———— = 


ee ee ce 


ee 


CZLCPA COLOR PRINTER DIAGNOSTIC MACR 


SERIAL LINE SETUP ROUTINES 


001003 
012737 


122700 
001003 


014066 


014066 


164040 


164026 
164024 


164012 
177700 
000012 
000015 
001124 
177760 
000001 
040000 


000002 


001124 





1203: 


497$: 


4983: 


500$: 


5055: 


510$: 








5. 
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105$ 
87,CLRITY 
+0 
#7,CLRITY 
+0 
#7,CLRTITY 
+0 
87,CLRTTY 
+0 

#7, CLRITY 
+0 
#7,CLRTITY 
0 


+O 
#7,CLRITY 
<0 


«0 
87, CLRITY 
0 


;BR, IF IT WASN’'T A Y 


; CHECK 


FOR AN 


sBR, IF NOT AN CERROR) 
:GO GET LF OR CR 


; CHECK 


UT 
sTRY AGAIN — INPUT (NOT CR) 


FOR BAD INP 


sEXIT ROUTI 
:GO GET LF OR CR 


; CHECK 


;TRY AGAIN BAD INPUT (NOT CR) 
sPICK UP PENDI 


FOR BAD INPUT 
CHARACTERS 


NG 

;CALL TO THE TTY PRINTER 
sBAUD RATE MENU PRINTOUTS 
sPICK UP PENDING CHARACTERS 
sCALL TO THE TTY PRINTER 
sBAUD RATE MENU PRINTOUTS 
sPICK UP PENDING CHARACTERS 
sCALL TO THE TTY PRINTER 
sBAUD RATE MENU PRINTOUTS 
sPICK UP PENDING CHARACTERS 
sCALL TO THE TTY PRINTER 
sBAUD RATE MENU PRINTOUTS 


sPICK UP PENDING 


CHARACTERS 


sCALL TO THE TTY PRINTER 
sBAUD RATE MENU PRINTOUTS 


sPICK UP PENDI 


NTOUT 
s;CALL TO THE TTY PRINTER 
sBAUD RATE MENU PRINTOUTS 
sPICK UP PENDING CHARACTERS 


:CALL 


TO THE TTY PRINTER 


sBAUD RATE MENU PRINTOUTS 
SUBROUTINE 


;CALL 
;"6 = 


TO 
19200 BAUD” 


sPICK UP PENDING CHARACTERS 


:CALL 


TO THE TTY PRINTER 


sBAUD RATE MENU PRINTOUTS 


;CHK T 


TY IN STATUS 
DONE 


sWAIT FOR 


sPICK 
3; CHECK 
:LOOP 
sECHO 


: ONLY 

; CHECK 
;8R, I 
3SET F 


3; CHECK 
;BR, I 


UP CHARACTER TYPED IN 
FOR BUSY 

UNTIL NOT BUSY 
CHARACTER 


WORK a 

FOUR BITS PASS 
FOR A “1” TYPED 
F IT WASN‘T A ONE 
OR 150 BAUD 


FOR A TWO TYPED 
F IT WASN'T A “2” 


———e = EE — S  eE~atee LL a ee eee ee _—_—<- 


CZLCPA COLOR PRINTER DIAGNOSTI 
SERIAL LINE SETUP ROUT 


015272 


015276 


012737 


013737 
053737 


013703 
062703 
052737 
013713 


000137 


I 
INES 


050000 


014476 


001124 


001124 


001124 


001124 


001124 


001124 


001124 


001124 


001074 


520%: 


521%: 


S22$: 


523%: 


524%: 


543%: 
S253: 
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MOV #50000 , WORK 
CMPB 03,80 

BNE 521% 

MOV #60000 , WORK 
CMPB 04,80 

BNE S22$ 

MOV #70000 , WORK 
CMPB #5 80 

BNE 523% 

MOV #120000 , WORK 
CMPB #6 , 80 

BNE 524% 

MOV #140000, WORK 
CMPB 07,80 

BNE S258 

MOV €160000 , WORK 
CMPB 08. ,#0 

BNE $ 

MOV #170000 , WORK 
JSR s7,GETCR 
CMP 80 , 0123456 
BEQ 4 

BR 530% 

MOV #160000 , WORK 
BR 3308 

CMP WORK , 00 

BEQ 498% 

JSR 87 ,GETCR 
CMP 80 , 0123456 
BEQ 

MOV WORK , BRATE 
81S WORK ,DLLPR 
SET UP ACTUAL Di REGISTERS 
MOV LPS .s3 

AOD 02,83 

BIS ©4000 .DLLPR 
MOV DLLPR (83) 
SHOULD BE ALL SET 
JMP 75$ 


LL ee : 


SEQ 0064 


sSET FOR 300 BAUD 


sCHECK FOR A THREE TYPED 
sBR, IF IT WASN'T A “3” 
sSET FOR 600 BAUD 


;CHECK FOR A FOUR TYPED 
;0R, IF IT WASN'T A “4” 
;SET FOR 1200 BAUD 


sCHECK FOR A FIVE TYPED 
:BR, IF IT WASN'T A “5S” 
;SET FOR 2400 BAUD 


;CHECK FOR A SIX TYPED 
;BR, IF IT WASN’T A “6” 
;SET FOR 4800 BAUD 


sCHECK FOR A SEVEN TYPED 
;BR, IF IT WASN’T A “7” 
sSET FOR 9600 BAUD 


sWAS AN ASCII EIGHT TYPED 
;I1T WASN’T AN EIGHT 

sSET FOR 19200KC 

:GO GET LF OR CR 

sCHECK FOR BAD INPUT 

;BR, IF CR RECEIVED (GOOD) 
sLEAVE 


sCHECK FOR NOT SET 
;6R, IF 


sCHECK FOR BAD INPUT 
sTRY AGAIN BAD INPUT (NOT CR) 


sSTORE BAUD RATE FOR LATER 
sPUT BAUD RATE IN PLACE 


sGET STATUS REG ADDRESS 
sPOINT TO LPR REGISTER 

3SET PBR ENB BIT 

sSET SPEED, LINE, PARITY ETC 


sNO MORE DL QUESTIONS 


--. Eee eee ee eC sti‘ (‘a 


a a 


pie en —— eer ee ee 


CZLCPA COLOR PRINTER DIAGNOSTIC MA 
SERIAL LINE SETUP MESSAGES 


1 
aaae 017340 


5 
2626 017410 000060 
7 000200 
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NS 


SEQ OVES 


-SBTTL SERIAL LINE SETUP MESSAGES 


i POCSOSOEE RECESSES ESESESEEEEEEEEEEEEEEEEEEEESEEEEEEeeEEESEESSSCoSseS 


; 
; OPERATOR MESSAGES 


: 
; 
OLASKi: .ASCIZ 


<12><15>/TYPE OF DL11 MODULE MENU/ 


DLASK2: .ASCIZ <12><15>/1 DLV11-E OR DLV1I1-F/ 

DLASK3: .ASCIZ <12><15>72 OLV11, OLI1 OR DLV11-u/ 

DLASK4: .ASCIZ <12><15>/TYPE MENU SELECTION <2>? / 

DLASKS: .ASCIZ <12><15>/D0ES OL HAVE PROGRAM SELECTABLE BAUD RATE <N>?/ 

PTROTR: .ASCIZ <12><15>/PRINTER IS NOT SENDING DATA TERMINAL READY/ 

MENU1O: .ASCIZ <12><15>/SERIAL LINE TYPE MENU/ 

MENU2O: .ASCIZ <12><15>/1 EIA/ 

MENUSO: .ASCIZ <12><15>/2 20 MA/ 

MENU40O: .ASCIZ <12><15>/TYPE MENU SELECTION <i>? / 

MENU1: .ASCIZ <12><15>/SERIAL LINE SELECTION MENU/ 

MENU2: .ASCIZ <12><15>/1 DLi1 SERIAL LINE/ 

MENUS: .ASCIZ <12><15>/2 07211 SERIAL LINE/ 

MENU4: .ASCIZ <12><15>/TYPE MENU SELECTION <1>? / 

MENUD1: .ASCIZ <12><15>/"DL" PROGRAMMABLE MAINTENANCE LOOPBACK FEATURE MENU/ 

MENUD2: .ASCIZ <12><15>)1 YES (SUCH AS DL11, DLV11-E/F )} 

MENUD3: .ASCIZ <12><15>)2 NO (SUCH AS DLVi1, DLV11-u)) 

MENUD4: .ASCIZ <12><15>/TYPE MENU SELECTION <1>? / 

DLCSRM: .ASCIZ <12><15>/TYPE DL11'S CSR ADDRESS <776500>? / 

DLVECM: .ASCIZ .<.12><15>/TYPE DOL11‘S VECTOR ADDRESS <300>? / 

DOZCSRM: .ASCIZ <12><15>/TYPE DZ11'S CSR ADDRESS <760100>? / 

DZVECM: .ASCIZ <12><15>/TYPE 0Z11'S VECTOR ADDRESS <300>? / 

OLCRLF: .ASCIZ <12><15><00> 

OZLINE: .ASCIZ <12><15>/TYPE DZ11'S LINE NUMBER 0-7 < 0 >? / 

LNi: IZ <12><15>/ ENTER 0Z11'S BAUD RATE/ 

LNIA: ASCIZ <12><15>/ ENTER DL11'S BAUD RATE/ 

LN2: -ASCIZ <12><15>/ 1 = 450 BAUDs 

LN3: ~ASCIZ <12><15>/ 2 = 300 BAUD/ 

LN4: -ASCIZ <12><15>/ 3 = 600 BAUD/ 

LNS: -ASCIZ <12><15>/ 4 = 1200 BAUD/ 

LN6: -ASCIZ <12><'5>/ 5 = 2400 BAUD/ 

LN7: -ASCIZ <12><15>/ 6 = 4800 BAUD/ 

LN8: -ASCIZ <12><15>/ 7 = 9600 BAUD/ 

LNBA: -ASCIZ <12><15>/ 8 =19200 BAUD/ 

LN1O: -ASCIZ <12><15>/TYPE BAUD RATE SELECTION < >?/ 

STOPM: .ASCIZ <12><15>/TYPE NUMBER OF STOP BITS 1 “R 2 <«< 1 >2/ 

DATAM: .ASCIZ <12><15>/TYPE NUMBER OF DATA BITS 7 OR 8 < 7 >?/ 

PARITY: .ASCIZ <12><15>/IS PARITY SELECTED Y OR N < N >?/ 

PARITZ: yonong <12><15>/IS PARITY ODD (0) OR EVEN CE) < O >?/ 
-NLIST ME 
-LIST BEX 

LSTADR: .WORD 0 sLAST LOCATION IN PROGRAM 
END START 








eee... 


a 





| B6 
CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR-85 15:38 SEQ 0066 
SYMBOL TABLE 
ACNVX 004576 DLCSRC 001032 HLP4A 007672 MES6 006347 TKS 005424 
ACVN 004514 DLCSRM 016317 HLPS 007752 MES7 006416 TPB 001014 
BEGIN 000000 DLHERE 001106 HLP6 010040 MESS 006457 TPS 001020 
BITO = 000001 DLLPR 001074 HLP7 010100 MESS 006475 TSEAB 004176 
BIT! «= 000002 DLLPS 001076 HLPS 010163 N = 000014 TSEDA | 
BITic * 002000 DLRATE 001104 HWSWR 001012 NOP = 000240 TSEND 004070 
BTTi1 = ©94000 001100 LCP3 005523 NUMCHR 001146 TSRSS 004232 
E.°.2 = ° 40000 DLSET 014364 LCP4 005533 OcT 001162 TSRST 
BIT13 = 020000 DLTYPE 001114 LCPS 005542 OFFSET 001150 TSTWRD 014144 
BIT14 = 040000 DLVEC 001042 LCP7 005556 PARITY 017275 TYO1 005571 
BIT15 = 100000 DLVECM 016364 LEGCHR 001144 PARITZ 017340 TY02 
BIT2 = 000004 DZCSR 001036 LINCNT 001062 PASSA 001164 TYO3 005673 
BITS = 000010 DZCSRC 001040 LKS 001030 PLKS 001026 TYP 004332 
BIT4 = 000020 DZCSRH 001120 LNi 016615 PRINE TYPA 004342 
BITS = 000040 DZCSRM 016431 LN1A 016647 PRNNT 004242 TYPC 004352 
BIT6 = 000100 DZLINE 016547 LN10 017111 PRTMSG 004312 TYPD 
BIT7 = 000200 DZLNE 001072 LN2 016701 PSW 001010 TYPDAT 004464 
BIT8 = 000400 DZLPR 001070 LN3S 016722 PTRC 001 TYPDO 004426 
BIT9 = 001000 DZRBUF 001116 LN4 016743 PTROTR 015536 TYPDO1 004434 
BRATE 001102 DZTCR 001066 LNS 016764 PTRPSW 001052 TYPF 004436 
BUFF 001166 DZTCRA 001110 LN6 017005 PTRVEC 001050 TYPG 004450 
CHAR 001160 OZVEC 1044 LN7 017026 RINT 004274 TYPINT 004314 
CHRCNT 001056 DZVECM 016476 LN& 17047 R6 . TYPSWR 005272 
CHRGEN 00 EIA 001112 LN8BA 017070 R7 2 TYPSWX 005336 
CLRTTY 014066 EIACHK 013720 LPB 001002 SAVE 001134 = 000007 
CNTRLG 005216 = 000037 LPS 001000 SEGCNT 001054 WAIT1 001730 
CN1 001666 ERCHK 014122 LSTADR 017410 SET 1156 WAIT2 002100 
CN10 003322 ERCHKB 014146 = 2 SETSER 010234 WAITS 002366 
CNi2 003550 ERCOUN 001136 MAINTB 001122 SETUP 001306 WAIT4 002536 
Ne 002072 ERMS1 006704 MENUD1 016070 SIGNAL 001154 WAITS 003142 
CN3 002242 ERMS2 006756 MENUD2 016156 = 36 WAIT6 003406 
CN4 002326 ERMS3 007026 MENUDS 016221 STAER WOD1 001736 
CNS 002530 ERMS4 007120 MENUD4 016263 STARN 004752 WOD2 002106 
CN6 002700 ERMSS 007211 MENU1 015723 START 000200 G WOD3 002374 
CN7 002764 ERMS6 007305 MENU1O 015613 STEDA 004714 002544 
CONR1 004600 ERR1 001620 015760 STEXT 004744 WOODS 003166 
CONR2 004602 ERR10 003254 MENU2O 015643 STOPM 17153 WOD6 003414 
CONR3S 004604 ERR11 003362 MENUS 016006 STRCHR 001140 WDE 1 001752 
CONV 004466 ERRi2 003502 MENU3SO 015654 STRCNT 001142 WOE2 002122 
R 001024 ERR13 004262 MENU4 016034 001004 WOES 002410 
CYCCNT 001064 ERR2 002024 MENU40 015667 SWREG 000176 WOE4 
005512 ERRS 002174 MESOD 006114 TEST1 001464 WOES 003202 
DAR2 005516 ERR4 002260 MES1 006153 TEST2 003052 WDE6 003430 
DAR6 005551 ERRS 002462 MES1O 006 TESTS 003640 WER1 001770 
DARO 005567 ERR6 002632 MES14 006570 TIME 001130 WER2 002140 
DATAM 017224 ERR7 002716 MES2 006167 TIMER 001132 WERS 002426 
OGTS 005200 ETIM 005731 MES20A 006607 TKB 001016 WER4 76 
DIGITS 001152 ETIMO 006007 MES21 006612 TKHLP 005440 WERS 003220 
DISPLA 001006 GETCR 013642 MES22 006614 TKINT 004754 003446 
ISPRE 000174 GETOCT 013560 MES23 006620 TKS 001022 WEX1 002074 
LASK1 015302 HED1 006063 MES24 006630 TK1 WE X2 002244 
LASK2 015335 HED2 006104 MES2S5 006647 TK2 005100 WEX3 002532 
LASKS 015365 HLPO 007350 MES26 006656 TKS 005366 WEX4 002702 
LASK4 015421 HLP1 007420 MES27 006672 TK4 005372 WEXS 003324 | 
DLASKS 015455 HLP2 007514 MESS 006230 TKS 005170 WE X6 003554 
LCRLF 016543 HLPS 007541 MES4 006246 TK6 005406 WORK 001124 
DLCSR 001034 HLP4 007611 MESS 006274 TK7 005376 WORKA 001126 


—_— eee eee ee eee 
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/CZLCPA COLOR PRINTER DIAGNOSTIC MACRO M1113 12-MAR-85 15:38 
| SYMBOL TABLE 


WI2 ss 005114 WT3 005242 
. ABS. 017412 000 

000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 4362 WORDS ( 18 PAGES) 
DYNAMIC MEMORY: 7630 WORDS ( 29 PAGES) 
ELAPSED TIME: 00:01:37 
CZLCPA,CZLCPA/-SP/CR=CZLCPA 














C6 


- ee ee 


Te me 


| LE < — S 


'CZLCPA 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
pn 904576 
ACVN 004514 
BEGIN 
BITO = =>—« ©0C 001 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BITi2 = 010000 
B1T13. = 020000 
BIT14 = 040000 
B1T15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT7 = 000200 
BIT8 = 000400 
BIT9 = 001000 
BRATE 001102 
BUFF 001166 
CHAR 001160 
CHRCNT 001056 
CHRGEN 001060 
CLRTTY 014066 
CNTRLG 005216 
CN1 001666 
CN10 003322 
CN12 003550 
CN2 002072 
CN3 002242 
CN4 002326 
CNS 002530 
CN6 002700 
CN? 002764 
CONR1 004600 
CONR2 004602 
CONRS 004604 
CONV 004466 
CSBR 001024 
CYCCNT 001064 
1 005512 
AR2 005516 
AR6 005551 
AR 005567 
ATAM 017224 





REFERENCES 


*25-1423 
#25-1427 


21-1151 
21-1159 
*25-1419 
*25-1420 
*25-1421 
24-1326 
#16-686 
#18-966 
#27-1629 
#27-1630 
#27-1634 
#27-1636 
28-2132 


25-1427 
25-1438 
15-613 
16-665 


15-626 


*28-1701 
22-1209 
*26-1501 
26-1526 


25-1441 
#25-1419 


*19-1013 


#32-2620 


CREATED BY MACRO ON 12-MAR-85 AT 15:39 


*25-1432 
15-619 


*28-1743 
2 


#25-1446 
#25-1447 
#25-1448 

25-1455 


22-1215 


CREF 


*25-1434 


15-623 


*28-1780 
22-1237 
26-1503 
26-1536 


28-1781 
28-2020 


26-1561 
23-1269 


vol 





D6 


*25-1436 


15-625 


*28-2091 


26-1505 
*26-1542 


28-1858 
28-2023 
28-2166 
31-2483 


26-1569 
*24-1323 


#25-1445 


15-629 


30-2352 
26-1507 
*26-1543 


28-1861 
28-2026 


24-1327 


15-634 


30-2372 


26-1509 
26-1544 


28-1870 
28-2029 
28-2200 
31-2489 


ee ee 


15-642 16-652 
*31-2457 *31-2565 
26-1512 26-1515 
26-1548 

28-1962 28-1968 
28-2032 28-2035 
28-2228 29-2289 
31-2492 31-2495 


A RR 








E6 | 
'CZLCPA CREATED BY MACRO ON 12-MAR-85 AT 15:39 SEQ 0069 
CROSS REFERENCE CREF vO1 | 
VALUE REFERENCES 
005200 26-1506 26-1538 
001152 #18-998 *26-1521 26-1522 26-1528 26-1538  +*26-1581 
001 16-679 #19-102 . 
000174 015-643 19-1023 
015302 31-2422 32-2584 | 
015335 31-2424 #32-2585 
015365 31-2426 #32-2586 | 
015421 31-2428  #32-2587 
015455 31-2456 32-2588 
016543 28-1864 32-2606 
001034 16-691 
001032 #16-690 28-1846 28-1848 28-1849 
016317 28-1784 #32-2602 
001106 #18-977 *28-1700 *28-1742 28-1779 28-1873 30-2370 
001074 #18-972 *31-2566 +*31-2571 31-2572 
roa gee ot oe 21-1120 21-1151 22-1215 22-1242 «28-1838  +*28-1848 30-2395 30-2401 
001100 #18-974 21-1122 21-1153 22-1216 22-1244 = 4#28-1839 +%28-1840 +*28-1849 +#28-1850 
30-2397 30-2403 
014364 28-1860 #31-2420 
001114 #18-982 
001042 16-694 
016364 #32-2603 
001036 #16-692 
001040 #16-693 28-1935 
001120 #18-984 25-1394 28-1697 %28-1959 
016431 28-1872 #32-2604 
016547 28-1970 #32-2607 
001072 #18-970 *28-1990  +*28-1992 28-1996 28-1997 
001070 #18-969 *28-1699 +*28-1996 28-2092 +*28-2116 28-2123 *28-2147 +#28-2149 +*28-2159 
#26-2185 28-2192 +#28-2219 428-2226  %#28-2239 28-2240 
001116 #18-983 *28-2238 -2384 30-2390 
001066 #18-968 *28-1698  +28-1993 +#28-2004 28-2243 30-2376 
001110 #18-979 *28-2244 «28-2245 30-2376 
001044 #16-695 | 
016476 #32-2605 
001112 #18-980 *#29-2314 #£29-2319 «29-2322 30-2374 
013720 #29-2291 
37 #14-602 
014122 25-1361 30-2351 
014146 #30-2369 30-2411 
001136 #18-992 *e0-1085 = #21-1117 = #21-1120 = #21-1128 §= 21-1148 = #21-1151 #21-1159 #22-1215 
22-1232 *22-1242 +*25-1365 25-1456 
006704 20-1084 27-1671 28-1950 
006756 21-1127 21-1158 27-1672 
007026 #27-1673 
007120 22-1231 27-1674 
007211 27-1675 
007305 25-1364 #27-1676 
001620 #20-1085 
003254 #22-1215 
003362 #22-1232 


—-—~— ee —_———_— =< + 





, F6 
| CZLCPA CREATED BY MACRO ON 12-MAR-85 AT 15:39 SEQ 0070 
SYMBOL CROSS REFERENCE CREF voi 
| omen VALUE REFERENCES 
22-1242 
$25-1365 
#21-1117 
21-1120 
#21-1128 
21-1148 
#21-1151 
#21-1159 
21-1120 21-1151 22-1215 22-1242 #27-1642 
21-1117 21-1148 #27-1643 
28-1727 28-1739 28-1765 28-1776 28-1854 28-1931 28-2005 28-2078 28-2087 
28-2113 28-2120 28-2150 28-2156 28-2182 28-2189 28-2216 28-2223 #$29-2276 
29-2315 29-2320 31-2444 31-2449 31-2454 31-2473 31-2477 31-2552 31-2561 
28-1802 28-1810 28-1818 28-1826 28-1834 28-1892 28-1900 28-1908 28-1916 
28-1924 829-2256 
25-1463 #27-1644 
25-1457 27-1645 
26-1598  #27-1678 
26-1600 #27-1679 
26-1602 #27-1680 
26-1604 27-1681 
26-1606 #27-1682 
26-1608 27-1683 
26-1610 27-1684 
26-1612 #27-1685 
26-1614 #27-1686 
26-1616 27-1687 
#16-681 19-1019 20-1067 20-1081 20-1085 21-1117 21-1117 21-1120 21-1120 
21-1128 21-1148 21-1148 21-1151 21-1151 21-1159 21-1171 22-1194 22-1215 
22-1215 22-1242 22-1242 22-1254 23-1272 23-1276 23-1310 24-1324 24-1332 
25-1459 25-1465 
#27-1631 
23-1296 #27-1632 
22-1202 #27-1633 
22-1211 #27-1635 
#18-995 
#18-965 *22-1238  +*22-1249 
#16-688 
28-2013 #32-2608 
31-2482 32-2609 
28-2037 31-2507 #32-2618 
28-2016 31-2485  #32-2610 
28-2019 31-2488  $32-2611 
28-2022 31-2491 432-2612 
28-2025 31-2494 #32-2613 
28-2028 31-2497  #32-2614 
28-2031 31-2499 32-2615 
28-2034 31-2502 #32-2616 
31-2504 #32-2617 
#16-674 21-1118 21-1149 25-1368 28-1843 +#28-1844 428-1851 #28-1852 28-1929 
*28-1930 428-1936 «28-1937 «28-2235 
#16-669 20-1074 21-1113 21-1117 21-1148 21-1168 25-1367 28-1841] 28-1842 
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| CZLCPA CREATED BY MACRO ON 12-MAR-85 AT 15:39 SEQ 0071 
SYMBOL CROSS REFERENCE CREF O01 
SYMBOL VALUE REFERENCES 
26-1845 = =*28-1846 = #28-1847 =». 28-1851 *28-1928 28-1929 428-1935 28-1936 28-1942 
28-1958 = 28-1959 28-1960) 28-2233 = 28-2236 ©3938-2241 30.2356 30-2378 30-2380 
30-2382 30-2388 31-2569 
#32-2626 
#16-701 
#18-985 21-1103 21-1113 21-1168 }=#28-1707 28-1745 #28-1768 
28-1747 32-2598 
28-1749 32-2599 
28-1751  #32-2600 
28-1753 32-2601 
28-1709 32-2594 
29-2293 #32-2590 
28-1711 #32-2595 
29-2295 432-2591 
28-1713 32-2596 
29-2297 32-2592 
28-1715 32-2597 
29-2299 432-2593 
#27 - 1646 
19-1032 27-1647 
25-1470 27-1657 
25-1360 25-1370  #27-1660 
19-1034 #27-1648 
#27-1661 
26-1556 26-1580 427-1663 
26-1550 #27-1664 
26-1568 27-1665 
26-1576 27-1666 
26-1571 26-1574 427-1667 
26-1560 27-1668 
26-1563 26-1 #27-1669 
19-1036 27-1649 
19-1040 #27-1650 
#27-1651 
#27-1652 
24-1337 27-1654 
24-1331 27-1655 
24-1328 27-1656 
#16-700 20-1085 = 20-1085 = 20-1085 = 22-1117 21-1117 21-1117 21-110 21-1120 
por tt20 = 21-1128 = 21-1128 = 21-1128 = 21-1148 §~=— 21-1148 + 021-1148 31-1153 21-1151 
Pol-1152 21-1159 = 21-1159 = #21-1159 22-1215 22-1215 22-1215 32-4232 22-1232 
#ee-1232 = 22-1242 22-1242) 22-1242 = 25-1365 25-1365 825-1365 
#16-699 
#18-996 
#18-1002 *26-1531 #26-1533 #26-1535 +#26-1536 26-1540 26-1582 
28-2168 32-2621 
28-2202 32-2622 
#18-1003 19-1028  +#19-1030 
#16-687 
22-1202 23-1296 25-1361 
#25-1360 








H6 
| CZLCPA CREATED BY MACRO ON 12-MAR-85 AT 15:39 SEQ 0072 
CROSS REFERENCE CREF  vo1 
VALUE REFERENCES 
004312 *22-1202 23-1296 25-1360 25-1370 
001010 #16-680 
001046 916-696 
015536 30-2409 32-2589 
001052 #16-698 
001050 916-697 
004274 25-1362 25-1367 
=%000006 914-579 14-581 
=%000007 #14-580 14-582 
001134 #18-991 = =9#21-1115 = 21-1129 #21-1146 ~=— 21-1160 
001054 #18-962 
001156 #18-1000 
010234 19-1037  #28-1696 
001306 16-660 19-1012 20-1087 24-1346 26-1593 
001154 #18-999 419-1014 26-1551 426-1554  4+26-1578 
= 000036 #14-601 
004606 20-1085 = 21-1117) 21-1120 21-1128 )=— 21-1148 ~=— 21-1151 21-1159 22-1215 22-1232 
22-1242 25-1365 25-1454 
004752 *25-1454 25-1480 425-1483 
000200 #16-651 32-2627 
004714 #25-1472 25-1473 
004744 25-1467 25-1477 25-1480 
017153 28-2099 32-2619 
001140 #18-993 
001142 #18-994 
001004 #16-676 *19-1022 20-1067 20-1081 20-1085 21-1117 2-117 21-1120 21-1120 
el-1128 = 21-1148 = 21-1148 = 21-1151 21-1151 21-1159 31-1171 22-1194 22-1215 
ce-leis = =§ 22-1242 22-1242 = 22-1254 = 23-1272 = 33-1276 33-1310 24-1324 24-1332 
25-1459 25-1465 26-1557 
000176 915-644 19-1022 = =©20-1067 = 20-1081 = 20-1085 21-1117.) 21-1117 21-1120 21-1120 
21-1128 = 21-1148 = 21-1148 = 21-1151 21-1151 21-1159 31-1171 22-1194 22-1215 
ce-lelS = 22-1242 22-1242) 22-1254 = 23-1272 23-1276 33-1310 24-1324 24-1332 
25-1459 25-1465  +26-1540 
001464 16-663 20-1066 21-1173 24-1334 24-1348 
003052 21-1172 22-1194 22-1215 22-1242 22-1256 
003640 22-1255 23-1269 23-1312 
001130 #18-989 21-1117 421-1117 21-1148 +21-1148 
001132 #18-990 421-1117 21-1117 21-1148 #21-1148 
001016 #16-683 o4-1540 = 25-1474 = 26-1501 26-1542 =. 28-1718 28-1756 28-1787 28-1876 
26-1973 28-2040 28-2102 = 28-2135 = 28-2171 28-2205 39-2259 29-2279 29-2302 
29-2335 31-2431 31-2460 31-2510 
005440 26-1510 26-1597 
004754 15-630  #26-1492 
001022 #16-685 19-1027 =» 20-1066 = 24-1338 = 25-1472 = 28-1705. = 28-1716 28-1754 28-1785 
26-1862 = 28-1874 =. 28-1971 28-2038 = 28-2100 +s 28-2133 += 28-2169 38-2203 29-2257 
29-2277 = =29-2300 = 29-2333 = 31-2429 = «31-2458 =: 31-2508 
005066 26-1516 26-1518 
005100 26-1519 26-1521 
005366 26-1539 26-1541 26-1578 26-1617 
005372 26-1508  #26-1579 
005170 26-1529 426-1536 
005406 26-1537 26-1583 


i tt it 


eT ae —_—— a ow 


CZLCPA 


SYMBOL CROSS REFERENCE 
SYMBOL 
TK? 


TK9 
TPB 








CREATED BY MACRO ON 12-MAR-85 AT 15:39 


VALUE 


005376 
005424 
001014 


REFERENCES 


26-1553 
26-1513 


23-1274 


21-1117 
21-1120 


23-1311 


24-1343 
#30-2358 
#27-1637 
#27-1638 
#27-1639 
#25-1381 


*21-1117 
*21-1151 


21-1117 
21-1120 
21-1148 
21-1151 
22-1215 


22-1242 
#21-1117 
#21-1120 


#26-1581 
*25-1372 
28-2043 
31-2434 
*25-1371 
28-1877 
29-2303 
924-1323 


#24-1348 


25-1406 


#25-1393 
*25-1384 


26-1552 


21-1117 
21-1151 


22-1215 


CREF 


25-1393 
28-2105 
31-2463 
25-1394 
28-1974 
29-2336 


25-1403 
25-1387 


#26-1554 


#21-1117 
#21-1151 





16 


vol 


26-1526 


28-2041 
31-2432 


25-1405 
25-1389 


*21-1120 
22-1215 


26-1548 
28-2174 


25-1399 
28-2103 
31-2461 


25-1393 


21-1120 
22-1215 


28-1721 
28-2208 


26-1524 


28-2136 
31-2511 


*25-1402 


#21-1120 
#22-1215 


litte 


SEQ 0073 
28-1759 28-1790 
29-2262 29-2282 
26-1546 28-1719 
28-2172 28-2206 
#25-1404 25-1407 
*21-1148 21-1148 
#22-1242 22-1242 


_CZLCPA 
SYMBOL CROSS REFERENCE 


' 
‘ 


| 


a Ln a 


CREATED BY MACRO ON 12-MAR-85 AT 15:39 


SYMBOL VALUE 


WORKA 


WT2 
WT3 


002426 
002576 
003220 
003446 
002074 
002244 
002532 
002702 
003324 
003554 
001124 


001126 


005114 
005242 


REFERENCES 


21-1148 
21-1151 
22-1215 
22-1242 
21-1117 
21-1120 


26-1517 


#21-1148 
#21-1151 
#22-1215 
#22-1242 


*28-1833 
*28-1915 
*28-2053 
28-2091 
*31-2547 
*21-1120 
*23-1287 
26-1525 
26-1520 


*21-1120 
*23-1285 


*21-1120 
*23-1302 


26-1523 


CREF 





*21-1151 
*23-1301 

28-1838 
*28-1927 
*28-2061 
*31-2519 
#31-2556 
*21-1151 
*23-1305 


26-1546 


vol 


J6 


*21-1151 
*23-1303 
28-1839 
28-1928 
*28-2065 
*31-2523 
31-2559 
*21-1151 


26-1547 


*22-1215 
*28-1800 

28-1841 
*28-1967 
*28-2069 
*31-2527 

31-2565 
*22-1215 


*#22-1215 


#22-1215 


#22-1215 
*28-1809 


#31-2535 
*22-1242 


. ees | 


SEQ 0074 


*22-1242 
*28-1817 


#22-1242 


o- ee - -« 


—— ree me 


ee ee Ss ee eee ee eee 
a 
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oe 
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K6 

CZLCPA CREATED BY MACRO ON 12-MAR-85 AT 15:39 SEQ 0075 

ps CROSS REFERENCE CREF vOl1 

| MACRO NAME REFERENCES 

$ENABL #17-907 19-1027 

$ERROR #17-716 20-1085 21-1117 21-1120 21-1128 21-1148 21-1151 21-1159 22-1215 22-1232 
22-1242 25-1365 

$PRINT #17-933 22-1202 23-1296 

$PRTSN $17-745 #20-1069 #22-1196 423-1278 

$SETPS 017-924 

$TSWRG #17-949 20-1067 20-1081 20-1085 21-1117 21-1117 21-1120 21-1120 21-1128 21-1148 
21-1148 21-1151 21-1151 21-1159 21-1171 22-1194 22-1215 22-1215 22-1242 22-1242 
22-1254 23-1272 23-1276 23-1310 24-1324 24-1332 25-1459 25-1465 

$TYPE #17-941 

$WAITI #17-756 21-1120 21-1151 22-1215 22-1242 

#WAITO 617-843 @21-1117 21-1148 


